Ответы на вопрос:
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.
Популярно: Информатика
-
xastek11.05.2023 19:47
-
slaadkoo12.04.2023 06:27
-
Енотик8331.01.2020 02:41
-
ged9529.07.2022 14:19
-
PatrickKKK18.03.2023 12:11
-
AzamatAmangaliev125.10.2020 09:19
-
Hhh234103.01.2020 11:51
-
polina200412127.01.2022 04:46
-
mhey330320.09.2021 17:09
-
pvale4ka01.05.2021 15:48