Предмет: Информатика,
автор: помогитепожалустал
составить програму поиска большого элемента в масиве из 10 чисел
Ответы
Автор ответа:
0
program mas;
Type mass=array[1..10] of integer;
var m: mass;
i,a: integer;
begin
for i:=1 to 10 do begin
read(m[i]);
end;
a:=m[1];
for i:=2 to 10 do begin
if a<m[i] then a:=m[i];
end;
writeln(a);
end.
Вот программа с вводом данных в массив и нахождение большего элемента в нём
Type mass=array[1..10] of integer;
var m: mass;
i,a: integer;
begin
for i:=1 to 10 do begin
read(m[i]);
end;
a:=m[1];
for i:=2 to 10 do begin
if a<m[i] then a:=m[i];
end;
writeln(a);
end.
Вот программа с вводом данных в массив и нахождение большего элемента в нём
Похожие вопросы
Предмет: Русский язык,
автор: berdikulnurtas
Предмет: Алгебра,
автор: Аноним
Предмет: Литература,
автор: eaf95
Предмет: Математика,
автор: Аноним