Предмет: Информатика,
автор: DiNcHiK551379
Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива
Ответы
Автор ответа:
0
program gg;
var i,n,max:integer;
a:array of integer[1..10];
begin
readln(a[i]);
for i:=1 to 10 do
begin
writeln(a[i],' ');
end;
n:=a[6];
a[6]:=a[9];
a[9]:=n;
max:=a[1];
for i:=2 to 10 do
if a[i]>max then
max:=a[i];
writeln('max element=',max);
readln
end.
Похожие вопросы
Предмет: Английский язык,
автор: esulina9
Предмет: Математика,
автор: nastatverdohlebova06
Предмет: Геометрия,
автор: flowlolipop98
Предмет: Физика,
автор: Camilla17