мать любит дочь. дочь любит мать. кошка любит еду. еда любит кошку
Var
m : array [1..7,1..5] of Real;
i,j : Byte;
sr : Real;
Begin
For i:=1 to 7 do
Begin
sr:=0;
For j:=1 to 5 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
sr:=sr+m[i,j];
end;
Writeln(' Ср. знач. строки: ',sr/5:5:1);
end;
end.
Ручной смартфон мобильный тоже
Настольный ноутбук нетбук
Прикладной ПК(ну системный блок клава мышь монитор)