Var a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.
сделать блок схему к этой программе

137

211

Посмотреть ответы 2

Ответы на вопрос:

КитиКэт13

Информатика

4,4(61 оценок)

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

Объяснение:

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

nastgoliakova

Информатика

4,5(72 оценок)

{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии в операторах uses, clrscr, readkey } const n = 10; var a: array[1..n, 1..n] of integer; i, j, min, max: integer; begin randomize; {clrscr; } writeln('исходный массив'); max: =-100; min: =100; for i : = 1 to n do begin for j : = 1 to n do begin a[i, j] : = random(81)+10; write(a[i,j]: 3); if max< a[i,j] then max: =a[i,j] else if min> a[i,j] then min: =a[i,j] end; writeln end; writeln('min=',min: 2,', max=',max: 2); {readkey} end. тестовое решение: исходный массив 38 43 63 12 80 87 22 82 39 52 88 82 79 35 68 67 66 63 84 85 78 48 46 26 63 71 32 71 86 45 11 38 55 12 75 85 68 13 64 88 87 16 27 26 74 34 88 76 26 25 74 45 17 18 43 81 88 46 40 18 65 41 87 85 51 59 36 76 51 73 90 63 89 87 88 71 31 29 43 38 74 47 55 70 61 56 31 46 60 84 88 31 64 56 32 55 19 32 66 24 min=11, max=90