Псевдокод массива
Нужно написать псевдокод вида:
1.Ввод i,j.
2.P:=1
3. aij.<0
4.p:=p* aij.
5.Вывод p
6.Конец
Только по программе паскаля :
program p2;
uses crt;
const
n=8;
m=7;
var
i,j,p:integer;
matrix:array[0..n,0..m] of integer;
begin
p:=0;
for i:=0 to n do
if i mod 2 = 1 then
for j:=0 to m do
p:=p+matrix[i,j];
writeln('answer: ',p);
readln;
end.
Заранее спасибо
Нужно написать псевдокод вида:
1.Ввод i,j.
2.P:=1
3. aij.<0
4.p:=p* aij.
5.Вывод p
6.Конец
Только по программе паскаля :
program p2;
uses crt;
const
n=8;
m=7;
var
i,j,p:integer;
matrix:array[0..n,0..m] of integer;
begin
p:=0;
for i:=0 to n do
if i mod 2 = 1 then
for j:=0 to m do
p:=p+matrix[i,j];
writeln('answer: ',p);
readln;
end.
Заранее спасибо
