Дан массив 10 на 10 можно заполнить его рандомно. Вычислить квадратный корень каждого элемента 7 столбца. Паскаль
const
m = 10;
n = 10;
var
a: array[1..m, 1..n] of integer;
mac, i, j: integer;
begin
randomize;
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(10);
write(a[i, j]:2)
end;
writeln
end;
writeln('----------------------');
// Тут выбор столбца из всего массива и вычисление квадратного корня из каждого числа 7 столбца.
end.
По дате
По рейтингу
можешь применить эту программу для своей задачи
uses crt;
Const m=4; n=4;
Var
C: array [1..n,1..m] of integer; // stroki
s: array[1..m] of integer; // stolbci
i, j:Integer;
Begin
Writeln ('novyy massive C:');
For I:=1 to n do
Begin
For J:=1 to m do
begin
C[I,J]:=Random(25)-8;
Write (C[I,J]:4);
end;
writeln;
End;
for j:=1 to m do begin
s[j]:=0;
for i:=1 to n do
if c[i,j]<0 then s[j]:=s[j]+c[i,j];
writeln(j,' column: ', s[j]);
end;
End.
