Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / EX3
.PAS 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.
{‡ ¤ ¬ ббЁў 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