Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

как найти максимальное или минимальное число в pascal abc?

Dodo Ученик (157), закрыт 13 лет назад
Лучший ответ
Сергей Дианов Мастер (1756) 14 лет назад
Максимальное число среди чего? Давай возьмём массив.

const N=число чисел;
var a:array[1..N]of integer;
max, i: integer;
begin
max:=a[1];
for i:=2 to N do
begin
if a>max then max:=a;
end;
max - наш ответ;
end.
Остальные ответы
Ольга Божеволова Ученик (154) 7 лет назад
Найти минимальный положительный из данных десяти ненулевых целочисленных элементов. Если требуемые элементы отсутствуют, то вывести 0.
не могли бы помочь?
1 Program min; - заголовок программы [1]
2 Var a:array[1..10] of integer - раздел описания переменных
i,min:integer;
3 begin- начало раздела операторов
4Writeln ('Введите 10 чисел ');- вывод текста на экран
5 for i:=1 to 10 do begin – начало цикла For
6 Writeln ('Значение ',i:1, элемент массива 'a[',i,']= '); - вывод текста на экран
7Readln (a[i]);- ввод значений массива
8 end; - конец цикла
9 int min =0;
10 for i:=0 to 10 do begin - начало цикла For
11 if a[i] < min then min:= a[i];
12 end;- конец цикла
13 writeln ('Минимальное положительное значение = ', min); - вывод полученного значения на экран
14 readln; - задержка экрана для просмотра результата
15 end. - конец программы
не могу найти ошибку
Похожие вопросы