Написать программу на языке Паскаль для решения следующей задачи:

запросить через цикл ввод 14 чисел и среди них найти наибольшее (вывести его на экран)

Question

Информатика

Дуня

15 сентября, 19:29

Написать программу на языке Паскаль для решения следующей задачи:

запросить через цикл ввод 14 чисел и среди них найти наибольшее (вывести его на экран)

+4

Ответы (1)

Знаете ответ на вопрос?

Палуня · Answer 1

Var

a:array[1 ... 14] of integer;

max, i:integer;

begin

write ('Введите элементы массива - ') ;

for i:=1 to 14 do

read (a[i]) ;

max:=a[1];

for i:=1 to 14 do

begin

if a[i]>max then max:=a[i];

end;

writeln ('Наибольшое значение в массиве имеет число - ', max) ;

end.

Написать программу на языке Паскаль для решения следующей задачи:запросить через цикл ввод 14 чисел и среди них найти наибольшее (вывести его на экран)

Написать программу на языке Паскаль для решения следующей задачи:

запросить через цикл ввод 14 чисел и среди них найти наибольшее (вывести его на экран)