Дана вещественная матрица размерности MxN. Найти сумму элементов матрицы расположенных в каждой строке с чётным номером. Решите в qbasic
Вроде это
program Lab1_2;
const n= 5; m=5;
var a:array[1..n,1..m] of real;
s,i,j:integer; begin randomize;
for i:=1 to n do begin for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
s:=0;
for i:=1 to n do begin
for j:=1 to m do begin
if (a[i,j] mod 2) = 0 then begin s:=s+a[i,j]; end;
end;
end;
writeln(summa: ,s);
readln;end.
(если ошибся сори!)
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
