Земляника , малина , яблоко, вишня , смородина
Программа не доработана,не будет запускаться,очень много ошибок
for i := 0 to 10 do
А[i]:=i;
for i := 0 to 4 do
begin
К := A[t];
A[i] := A[10 * i] * K;
A[10 * i] := K;
<span>end;</span>
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln('массив: ');
var a:=MatrRandom(6,6,-100,100).Println;
write('сумма 1 строки: ',a.Row(0).Sum);
end.