Ну тут ты не указал какой масив, одновымерный или двохвымерный я напишу для двохвымерного масива Type Tabl = array [1..5,1..5] of integer;const A: Tabl = ((10,5,6,9,5) , (9,7,12,6,10), (5,4,8,9,11), (10,9,4,2,6), (8,4,6,9,5));var i,j:integer;var Ar,P: real;beginAr:=1;P:=0;for i:=1 to 5 do beginfor j:=1 to 5 dowrite (A[i,j]:3);writeln;end;for i:=1 to 5 dofor j:=1 to 5 do beginP:=A[i,j]+A[i,j];Ar:=(Ar+P)/25;write (Ar:5:2);end;writeln;end.
P.S. в константу можешь писать любые числа, которые придумаешь Почти получилось, только со среднем арифметическим проблема и должно быть записано все в таком порядке, как на втором скрине
Var ar:array[1..n,1..m] of integer; i,j:integer; begin randomize; writeln('First matrix:'); for i:=1 to n do begin for j:=1 to m do begin ar[i,j]:=random(100); write(ar[i,j]:4); if ar[i,j] mod 3=2 then inc(ar[i,j]); end; writeln; end; writeln('Final matrix:'); for i:=1 to n do begin for j:=1 to m do write(ar[i,j]:4); writeln; end; end.
k,m,h:integer;
begin
readln(k);
writeln(k div 60, ' минут');
writeln(k div 3600, ' часов');
end.