Що надрукує програма, якщо x = 123; х Я УЖЕ 3 ЧАСА СИЖУ НАД ЕТИМ ВА уже ненадо

uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer;

index,sum:integer;

procedure max_el;

begin max:=e[1,1];

sum:=0;

index:=0;

for n:=1 to 3 do

begin

for m:=1 to 7 do

begin

if e[n,m]>max then

begin

max:=e[n,m];

index:=m;

end;

end;

end;

for n:=1 to 3 do

begin

if e[n,index]<0 then

begin

sum:=sum+e[n,index];

end;

end;

writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);

end;

begin

clrscr;

writeln('elementy massiva');

writeln;

randomize;

for n:=1 to 3 do begin for m:=1 to 7 do

begin

e[n,m]:=random(100) -50;

write('',e[n,m],' ');

end;

writeln;

end;

writeln;

writeln;

max_el;

readkey;

end.

Объяснение:

Это на 1ое

Program z1;

var a,b,c,max:integer;

begin

writeln(Введите 3 целых числа);

readln(a,b,c);

if agt;b then max:=a

else

if bgt;c then max:=b

else max:=c;

writeln(Наибольшее число = ,max);

end.

Это на 2ое

Program z2;

var a, b, c, d, e, max:integer; //задаем переменные целого типа

begin

write( введите первое число );  // вводим с клавиатуры 1-ое число

read(a);  

write( введите 2-ое число );  // вводим с клавиатуры 2-ое число

read(b);

write( введите третье число );  // вводим с клавиатуры третье число

read(c);

write( введите четвертое число );  // вводим с клавиатуры 4-ое число

read(d);

write( введите 5-ое число );  // вводим с клавиатуры 5-ое число

read(e);

if (agt;b)and(agt;c)and(agt;d)and(agt;e) then max:=a;  

if (bgt;a)and(bgt;c)and(bgt;d)and(bgt;e) then max:=b;

if (cgt;b)and(cgt;a)and(cgt;d)and(cgt;e) then max:=c;

if (dgt;b)and(dgt;c)and(dgt;a)and(dgt;e) then max:=d;

if (egt;b)and(egt;c)and(egt;d)and(egt;a) then max:=e;

write( наибольшее среди пяти чисел = , max);  // выводим ответ

end.