Ответы на вопрос:
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.
Популярно: Информатика
-
Nastya7777777821.03.2022 03:37
-
avatar2345531.01.2022 09:24
-
nikitakoshelevozt3ef15.05.2022 05:25
-
gudishonozvm3p02.03.2021 06:47
-
hdjeugwcwtixuvbekz26.12.2020 00:55
-
Капач17.06.2020 06:15
-
Ксения6183137805.05.2022 13:11
-
ник504420.05.2022 11:37
-
Fazzika07.06.2020 05:02
-
ЁшкинКот247923.06.2021 19:25