дается последовательность из N чисел.Выведите разницу между максимальным минимальным элементами последовательности ответ
10-11 класс
|
const n=4; { любое число N от 1 до 100000}
var a:array [1..n] of integer;
b,min,max, s:integer;
proizvedenie:real;
beginwriteln('Введите n чисел');
for b:=1 to n do read (a[b]);
for b:=1 to n do
write(a[b],' ');
min:=a[1];
max:=0;
for b:=1 to n do
begin
if a[b]>max then max:=a[b];
if a[b]<min then min:=a[b];
end;
proizvedenie:=max-min;
writeln;
writeln('minimum ',min,' ','maximum ',max,' Proizvedenie= ',proizvedenie); readln;
end.
Другие вопросы из категории
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
Какое значение при х=0 и y=z=1 принимает логическое выражение L=x and Z and x or y or not z and y?
Вводится 15 чисел. Определите сколько среди них целых чисел.
двум приятелям родители подарили по новому мотоциклу .подростки поспорили кто быстрее пройдет обкатку двигателя 2500 км. первый проехал километры за 12 дней, а второй в первый день проехал 150 км, а в каждый следующий он прибавлял 20 км. нужно разрешить их спор и выявить кто сделал обкатку быстрее
Читайте также
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.
ждое следующее, начиная с третьего, равно сумме двух предыдущих.
наименьшее число среди чётных элементов последовательности.
чисел. Вычислить произведение положительных
элементов последовательности