Дан массив. Найти максимальный элемент.

Дан массив. Найти максимальный элемент.
Гость
Ответ(ы) на вопрос:
Гость
Вот на Паскале: uses crt;   var mas:array [1..100] of integer;       max,i,n:integer; begin clrscr;   writeln (' vvedite kol-vo cifr ');   readln (n);  for i:=1 to n do begin write ('vvedite ',i, ' Chislo ');                         readln (mas[i]);                   end;   max:=mas[i];  for i:=2 to n do   if mas[i]>max then max:=mas[i];   writeln ('max chislo: ',max);  readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы