profile
Опубликовано 5 лет назад по предмету Информатика от djadlkwjadl

На языке ПАСКАЛЬ сделать:
Найти квадрат суммы максимального и минимального из 4 чисел.

  1. Ответ
    Ответ дан Issenpilon
    .//Pascal ABC.NET

    var
    i,max,min,res:integer;
    a: array [1..4] of integer;
    begin
    writeln('Введите числа');
    for i:=1 to 4 do
    read(a[i]);
    max:=a[1];
    min:=a[1];
    for i:=1 to 4 do
    begin
    if max<a[i] then begin
    max:=a[i];
    end;
    if min>a[i] then begin
    min:=a[i];
    end;
    end;
    res:=sqr(max+min);
    writeln('max=',max,' min=',min);
    writeln('Квадрат суммы min и msx = ', res);
    end.
Самые новые вопросы