Регистрация
Temka333333
04.03.2020 20:46
Информатика
Есть ответ 👍

Нужно составить программу с repeat,определяющую максимальное из всех введённых вами чисел.(пусть признаком конца ввода чисел является введённое число 0).

277
367
Посмотреть ответы 3

Ответы на вопрос:

Асия2008
Асия2008
4,6(82 оценок)

program abc;

uses crt;

const n=30;

var

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

i, max: integer;

begin

clrscr;  

for i: =1 to n do

read(a[i]);

max: =a[1];

for i: =2ton do

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

write('max=',max);

end.

lexalarionov11
lexalarionov11
4,8(89 оценок)

var i, e : integer; begin

writeln('вводите числа: ');

i : = 0; repeat readln(e); if e > i then i : = e; until e = 0; writeln('наибольшее число: ', i); end.

Тупик101
Тупик101
4,8(57 оценок)

а можно фотографию или там нету фотографии в каментариях напишите

Популярно: Информатика