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.
1.
Цикл while имеет более широкое применение чем for
Шаг может быть отрицательным
2. for i in range(10,1,-2)
3. Здесь 2 правильных варианта, 1 и 2, так как второй имеет уточнение в виде фразы: "Введите 3 слова через пробел", то я бы отметил именно его.
4. Можно для всех трёх чисел
5. for a in range(1,5):
6. Не совсем понятно, что имеется ввиду под этой "результирующей строкой", если мы в нее хотим запихнуть сумму и произведение через пробел( res = s + res + pr), то выбираем 0 / 1 / " "
7. for i in range(0, 5):
8. Шаг, начальное значение, последнее значение
