ДАЮ 25 БАЛЛОВ!!!!!
5-9 класс
|
Работа с Паскалем.
Найти минимальное и максимальное значение из четных чисел и записать их в файл output.txt
var a:array[1..100000] of longint;i,n,max,min:longint;
begin
Assign(input,'input.txt');Reset(input);
Assign(output,'output.txt');Rewrite(output);
readln(n);
min:=maxint;
max:=0;
for i:= 1 to n do begin
readln(a[i]);
if a[i] mod 2 = 0 then begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
end;
Writeln('min = ',min);
Writeln('max = ',max);
Close(input);Close(Output);
end.
Например
вводишь в файл input.txt
5
1
2
3
4
5
он в файле output.txt вывидет
min = 2
max = 4
Ответ в файле::::::::::::::::::::::::::::::::::::::::
Другие вопросы из категории
договорились использовать специальные цветные сигнальные ракеты, запускаемые
последовательно. Одна последовательность ракет – один сигнал; в каком порядке
идут цвета – существенно. Какое количество различных сигналов можно передать
при помощи запуска ровно трёх таких сигнальных ракет, если в запасе имеются
ракеты трёх различных цветов (ракет каждого вида неограниченное количество,
цвет ракет в последовательности может повторяться)?
перейдет в тот класс, который в этом году закончит Петя. В каком классе учится каждый из мальчиков?
1
1 2 3 4 =1
1 2 3 4 5 =1
1 2 3 4 5 6 =1
1 2 3 4 5 6 7 =1
1 2 3 4 5 6 7 8 =1
Читайте также
Есть 2 кувшина емкостью 3 и 8 литров .Как с помощью только этих набрать из реки 7 литров
Практическое задание
Открой
файл кр1-1.docx.
Выполни редактирование и форматирование текстового документа так, чтобы его вид
совпал с образцом текста, выданного учителем: