Двухмерные масивы. в целочисленной матрице размерность 10*10 найти сумму положительных элементов четных строк
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Сафийа
const n=10;
var a:array [1 ... n, 1 ... n] of integer;
i, j, s:integer;
begin
for i: = 1 to n do
begin
for j:=1 to n do
begin
a[i, j]:=Random (21) - 10;
write (a[i, j]:4)
end;
writeln;
end;
for i: = 1 to n do
if i mod 2 = 0 then
for j:=1 to n do
if a[i, j]>0 then s:=s+a[i, j];
writeln ('Сумма положительных элементов чётных строк равна: ', s)
end.
var a:array [1 ... n, 1 ... n] of integer;
i, j, s:integer;
begin
for i: = 1 to n do
begin
for j:=1 to n do
begin
a[i, j]:=Random (21) - 10;
write (a[i, j]:4)
end;
writeln;
end;
for i: = 1 to n do
if i mod 2 = 0 then
for j:=1 to n do
if a[i, j]>0 then s:=s+a[i, j];
writeln ('Сумма положительных элементов чётных строк равна: ', s)
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
