Паскаль 8,9,11,15 номера, если мало то хоть одно из них)
Паскаль 8,9,11,15 номера, если мало то хоть одно из них)
Гость
Ответ(ы) на вопрос:
Гость№8:
var
matr: array [1..5,1..5] of integer;
arr: array[1..5] of real;
begin
for var i:=1 to 5 do
begin
for var j:=1 to 5 do
begin
matr[i,j]:=Random(10);
write(matr[i,j]:3);
end;
writeln;
end;
writeln;
for var i:=1 to 5 do
begin
for var j:=1 to 5 do
arr[i]:=arr[i]+matr[j,i];
arr[i]:=arr[i]/5;
end;
writeln(arr);
end.
в остальных так же, только в последнем цикле другие вычисления (в зависимости от условий задачи)
Не нашли ответ?
Похожие вопросы