writeln('Введите 4 числа'); reag(a,b,c,d); if a>b then max:=a else max:=b; if c>max then max:=c else max:=max+0; {чтоб max не изменилось} if d>max then max:=d else max:=max+0; {тож самое - без изменений} writeln('Максимальное число', max); end.
Uses crt; const Q=10000; var a:array [1..Q] of integer; x,k,p,m,n,o:integer; begin write('a='); readln(m); write('b='); readln(n); a[1]:=m; for x:=2 to (n-m+1) do a[x]:=a[x-1]+1; write('Положительные: '); for x:=1 to (n-m+1) do if a[x]>0 then begin inc(p); write(a[x],' '); end; writeln; write('Отрицательные: '); for x:=1 to (n-m+1) do if a[x]<0 then begin inc(o); write(a[x],' '); end; writeln; writeln('Положительных чисел:', p); writeln('Отрицательных чисел:',o); end.
var a, b, c, d, max: integer;
begin
writeln('Введите 4 числа');
reag(a,b,c,d);
if a>b then max:=a
else max:=b;
if c>max then max:=c
else max:=max+0; {чтоб max не изменилось}
if d>max then max:=d
else max:=max+0; {тож самое - без изменений}
writeln('Максимальное число', max);
end.