Заполнить одномерный массив из 40 элементов в интервале от -80 до 55.Найти max и min элементы массива.
5-9 класс
|
var
a:array[1..40]of integer;
i:byte;
b,c,min,max:integer;
begin
for i:=1 to 40 do
a[i]:= -80 + random(55);
min:=a[1];
max:=a[2];
for i:=1 to 40 do begin
if a[i]<min then begin
min:=a[i];
b:=min;
end;
if a[i]>max then begin
max:=a[i];
c:=max;
end;
end;
writeln('максимальный эл.= ', c);
writeln('минимальный эл.= ', b);
end.
Другие вопросы из категории
страниц текста??? Помогите пожалуйста!!! ОЧЕНЬ НУЖНО!!!
второго пути. Пока же на этом полустанке имеется небольшой тупик, где принеобходимости может поместиться тепловоз с вагоном или два вагона. Вскоре к тому же полустанку подошёл грузовой состав ( тепловоз и 7 цистерн). Как пропустить пассажирский поезд?
Читайте также
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
а) среднее арифметическое нечётных чисел
Составьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет их сумму
Создать файл «U.txt», состоящий из Nцелых случайныхчисел, принадлежащих интервалу от 5 до 55. С
элементами созданного файла выполнить следующие операции: