Скачиваний:
288
Добавлен:
04.03.2014
Размер:
614 б
Скачать
program ex3;
{‡ ¤ ­ ¬ ббЁў y[5,4]. ‚лзЁб«Ёвм Їа®Ё§ўҐ¤Ґ­ЁҐ Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ў
Є ¦¤®Ј® бв®«Ўж  ¬ ббЁў . ђ бЇҐз в вм १г«мв вл}
var i,j,p,w: integer;
var y: array[1..5,1..4] of integer;
begin
writeln('‚ўҐ¤ЁвҐ Ёб室­го ¬ ваЁжг');
for i:=1 to 5 do
for j:=1 to 4 do read(y[i,j]);
{ђ бЇҐз вЄ  ¬ ваЁжл}
writeln('€б室­ п ¬ ваЁж ');
for i:=1 to 5 do
begin
for j:=1 to 4 do write(y[i,j]:4);
writeln
end;
{‚лзЁб«Ґ­Ёп}
writeln('ђҐ§г«мв вл');
for j:=1 to 4 do
begin
p:=1;
for i:=1 to 5 do
begin
w:=y[i,j]; if w>0 then p:=p*w
end;
write(p:4)
end;
writeln
end.
Соседние файлы в папке Alex