Здравствуйте Пример 2. Воспользуемся неполным условным оператором для записи на языке Паскаль рассмотренного в п. 2.4.2 (пример 9) алгоритма присваивания переменной у значения наибольшей из трёх величин а, b и с.

program n_10;
var у, a, b, с: integer;
begin
writeln ('Нахождение наибольшей из трёх величин');
write ('Введите а, b, с>>');
readln (а, b, с) ;
у:=а;
if (b>y) then y:=b;
if (с>у) then у:=с;
writeln ('у=', у)
end.

Дополните эту программу так, чтобы её выполнение приводило к присваиванию переменной у значения большей из четырёх величин а, b, с и d.

​

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

с: =(a+b)*(b-a) должно быть ну и тогда с это разность квадратов а и в