Предмет: Информатика,
автор: Tert93
дан двумерный массив в 5 строк и 4 столбца,сформулированный случайным образом.Найти сумму положительных элементов 1 строки и количество отрицательных элементов 3 столбца
Ответы
Автор ответа:
0
var a:array[1..5,1..4] of integer;
i,j,s1,k3:integer;
begin
s1:=0;
k3:=0;
for i:=1 to 5 do
for j:=1 to 4 do
a[i,j]:=random(-50,50);
for j:=1 to 4 do
if a[1,j]>0 then s1+=a[1,j];
for i:=1 to 5 do
if a[i,3]<0 then k3+=1;
write(s1,' ',k3);
end.
i,j,s1,k3:integer;
begin
s1:=0;
k3:=0;
for i:=1 to 5 do
for j:=1 to 4 do
a[i,j]:=random(-50,50);
for j:=1 to 4 do
if a[1,j]>0 then s1+=a[1,j];
for i:=1 to 5 do
if a[i,3]<0 then k3+=1;
write(s1,' ',k3);
end.
Похожие вопросы
Предмет: Химия,
автор: mirraclelilac
Предмет: Физика,
автор: yulianna1
Предмет: Математика,
автор: egorzalapenko
Предмет: Математика,
автор: WestDog
Предмет: Алгебра,
автор: kkovban