begin Write('Введите через пробел 4 целых числа->'); Readln(a, b, c, d); max := a; min := a; if b > max then max := b; if c > max then max := c; if d > max then max := d; if b < min then min := b; if c < min then min := c; if d < min then min := d; Writeln('MAX=', max, ', MIN=', min) end.
Procedure R(Nazvanie:string; Cvet:byte); Begin TextBackground(Cvet); ClrScr; GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2); Write(Nazvanie); End;
Var n:byte; Begin HideCursor; TextBackground(0); ClrScr; TextColor(15); GotoXY(WindowWidth div 2-12,WindowHeight div 2); Write('Введите номер дня недели'); Case ReadKey of '1': R('Понедельник',4); '2': R('Вторник',14); '3': R('Среда',2); '4': R('Четверг',9); '5': R('Пятница',1); '6': R('Суббота',13); '7': R('Воскресенье',12); else R('В неделе сейчас семь дней!',0); End; ReadKey End.
Const N = 5; M = 3; Var X:array[1..N,1..M] of integer; i,j:integer; S:real; Begin Randomize; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin X[i,j]:=random(41)-20; Write(X[i,j]:3,' ') End; WriteLn End; WriteLn('Новый массив:'); For i:= 1 to N do Begin For j:=1 to M do Begin if X[i,j] mod 5 = 0 then X[i,j]:=0; S:=S+X[i,j]; Write(X[i,j]:3,' ') End; WriteLn End; WriteLn('S = ',S); ReadLn End.
a, b, c, d, max, min: integer;
begin
Write('Введите через пробел 4 целых числа->');
Readln(a, b, c, d);
max := a;
min := a;
if b > max then max := b;
if c > max then max := c;
if d > max then max := d;
if b < min then min := b;
if c < min then min := c;
if d < min then min := d;
Writeln('MAX=', max, ', MIN=', min)
end.
Тестовое решение:
Введите через пробел 4 целых числа->5 3 -2 4
MAX=5, MIN=-2