нужно добавить функцию в программу

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
Андрей3636
Сообщения: 4
Зарегистрирован: 24 окт 2017, 23:02

12 ноя 2017, 18:51

program dj;
var i,j:byte;
summa:real;
mat: array[1..4,1..6] of real;
a:array [1..6] of real;
begin
for i:=1 to 4 do
begin
Summa:=0;
a:=0;
for j:=1 to 6 do
begin
mat[i,j] := random(10)-5;
write(mat[i,j]:6:1);
summa:= summa + mat[i,j];
a[j] := a[j] + mat[i,j]
end;
writeln (' |', summa:8:1);
end;
end.
Ответить