Реферат: Розробка та виконання програм на мові Pascal

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);

end.

Р Е З У Л Ь Т А Т И О Б Ч И С Л Е Н Ь П Р О Г Р А М И :

22 3 3 3

4 5 6 7