Реферат: Елементи та структура програми мови Паскаль

Задача 1:

program masiv_1;

uses

crt;

var

k:array [1..6,1..4] of integer;

i,j,max:integer;

dob:array [1..4] of real;

begin

clrscr;

for i:=1 to 6 do

for j:=1 to 4 do begin

write('Введiтьелемент K[',i,',',j,']=');

readln(k[i,j]);

end;

for j:=1 to 4 do begin

dob[j]:=1;

for i:=1 to 6 do dob[j]:=dob[j]*k[i,j];

end;

max:=1;

for j:=1 to 4 do if dob[max]<dob[j] then max:=j;

for i:=1 to 6 do begin

for j:=1 to 4 do write(k[i,j],' ');

writeln;

end;

for j:=1 to 4 do write(dob[j]:3:1,' ');

writeln;

write('Максимальний добуток в стовпцi з номером ',max);

writeln(' i дорiвнюї ',dob[max]:3:1);