1) var i,n,k:integer; a:array[1..10] of integer; begin for i:=1 to 10 do read(a[i]); writeln; for i:=10 downto 1 do write(a[i],' '); readln; readln end. 3) var i,n,k:integer; a:array[1..10] of integer; begin for i:=1 to 10 do read(a[i]); writeln; writeln((a[5]+a[6])/2:0:2); readln; readln end. 4) var i,n,k,min:integer; a:array[1..10] of integer; begin for i:=1 to 10 do begin read(a[i]); if (a[i] mod 10=4) or (a[i] mod 10=-4) then min:=a[i];
for i:=1 to 10 do if ((a[i] mod 10=4) or (a[i] mod 10=-4)) and (a[i]<min) then min:=a[i]; writeln(min); end.
5) var i,n,k,max:integer; a:array[1..10] of integer; begin max:=0; for i:=1 to 10 do begin read(a[i]); if (a[i] mod 5=0) and (a[i]>max) then max:=a[i]; end; writeln(max); end.
Программа:
Pascal:
var
arr: array[1..21] of integer;
i, max: integer;
begin
writeln('Введите числа: ');
for i := 1 to 21 do readln(arr[i]);
for i := 9 to 15 do begin
if i = 9 then max := arr[i];
if arr[i] > max then max := arr[i];
end;
writeln('Максимальный элемент с 9 по 15: ', max);
end.