Mamokiv
6 год назад
Дан массив. Найти максимальный элемент.
ОТВЕТЫ
Леонидович
Jul 25, 2019
Вот на Паскале:
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]gt;max then max:=mas[i];
writeln (max chislo: ,max);
readln;
end.
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]gt;max then max:=mas[i];
writeln (max chislo: ,max);
readln;
end.
18
Смежные вопросы:
