Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива
More Questions From This User See All
Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.