Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан массив, заданный датчиком случайных чисел в интервале [-60;140]. Определить, минимальный и максимальный элемент массива.

Ответ оставил Гость

Var arr: array[1..100] of integer; min,max:integer;
begin
    for var i:=1 to 100 do arr[i]:=random(-60,140);
    min:=arr[1];
    max:=arr[1];
    for var i:=2 to 100 do begin
        if arr[i]        if arr[i]>max then max:=arr[i];
    end;
    writeln(arr);
    writeln(Максимальный элемент: , max, , Минимальный элемент: ,min);
end.