A
AkeL.php
Guest
You must be registered for see links
You must be registered for see links
Остаётся дописать графику и управление с клавиатуры
Это не задача программирования, это задача математики плюс вызов справки того же мапла.Помогите решить, пожалуйста...
Язык: Maple
Код:На экран выводится таблица с числами(1,2,3,5,6,7,10,11,13,14,17,12). Как сделать чтоб на экран выводилось максимальное число и мнимальное с помощью массива?
uses crt; {подключаем модуль crt}
type a:array[1..12] of byte; {создаем массив из 12 переменных}
var i,max:byte; {декларируем i,max в небольшом промежутке}
begin
clrscr; {очистка экрана}
a[1]:='1';a[2]:='2';a[3]:='3';a[4]:='5';a[5]:='6';
a[6]:='7';a[7]:='10';a[8]:='11';a[9]:='13';a[10]:='14';
a[11]:='17';a[12]:='12'; {ну это типа задание переменных ^_^}
max:=a[1]; {задаем начальное значение максимума первому числу}
for i:=1 to 12 do {начинаем цикл для 12 шагов (12 чисел массива)}
begin {старт цикла}
writeln('Текущее число: ', a[i]); {выводим текущее число из массива}
if a[i]>max then {если a[i] (i-текущее занчение, a[i]-число с индексом i) больше максимального, тогда...}
max:=a[i]; {...максимальное равно a[i]}
end; {выход из цикла}
writeln('Максимальное значение равно: ',max); {выводим результат на экран}
end.