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

Составить программу поиска наименьшего значения среди четырёх чисел

  1. Ответ
    Ответ дан Gleb1Kosyrev
    var ar:array[1..4] of integer;
    i,k,min:integer;
    begin;
    min:=2147483647;
    for i:=1 to 4 do
    begin;
    readln(ar[i]);
    if ar[i]<min then min:=ar[i];
    end;
    writeln(min);
    end.
Самые новые вопросы