5. 5. в таблице dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (dat[1] - id881978220210329 от dolgenco123 29.03.2021 23:32

Question

Информатика: 5. 5. в таблице dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (dat[1] — данные за первый день, dat[2] — за второй и т. определите, какое число будет напечача-но в результате работы следующей программы. текст программы на трёх языках программирования(паскаль) var k, m: integer; dat: of integer; begin dat[1] : = 2; dat[2] : = 5; dat[3] : = 8; dat[4] : = 5; dat[5] : = 4; dat[6] : = 2; dat[7] : = 0; dat[8] : = 3; dat[9] : = 4; dat[10] : = 5; m : = 0; for k : = 1 to 10

dolgenco123 · Accepted Answer

Const n=5;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
writeln('Исходная матрица:');
Randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if i<>j then a[i,j]:=0;
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.

Пример:
Исходная матрица:
70 77 19 40 39
28 31 64 64 98
0 67 49 82 20
43 0 16 48 56
2 34 91 25 63
Измененная матрица:
70 0 0 0 0
0 31 0 0 0
0 0 49 0 0
0 0 0 48 0
0 0 0 0 63

MOGZ ответил