Написать программу, которая находит максимальное и минимальное значение, записанное в массив. Наполнение массива, поиск максимального значения, поиск минимального значения оформить в процедуры.
Ввод - сигнал или данные, получаемые системой. соответственно вывод - посылаемые.
Ввод информации может осуществляться через консоль или какой-то графический интерфейс. Данные могут считываться из файла, они могут поступать из какого-то потока и тд.
Выводиться информация может на экран монитора, она может печататься, передаваться с звукового сигнала и тд.
Считается хорошим тоном использовать слова для именования переменных, а не буквы. Какие можно использовать буквы - зависит от твоего языка программирования. Но чаще всего это только английские буквы любого регистра.
var n, x, L, F, k, kint, max:integer;
begin
kint := 0;
max := 0;
for n := 2095 to 19402 do begin
x := n;
k := 0;
while x > 0 do begin
k := k + 1;
if k = 1 then
L := x mod 10;
F := x mod 10;
x := x div 10;
end;
if (F > L)and(n mod 10 = 1)and((n div 10)mod 10 = 2)then begin
kint := kint + 1;
if n > max then
max := n;
end;
end;
writeln(kint,' ',max);
end.
Объяснение:
F - первая цифра числа
L - последняя(Слева направо)
Объяснение:
Ввод - сигнал или данные, получаемые системой. соответственно вывод - посылаемые.
Ввод информации может осуществляться через консоль или какой-то графический интерфейс. Данные могут считываться из файла, они могут поступать из какого-то потока и тд.
Выводиться информация может на экран монитора, она может печататься, передаваться с звукового сигнала и тд.
Считается хорошим тоном использовать слова для именования переменных, а не буквы. Какие можно использовать буквы - зависит от твоего языка программирования. Но чаще всего это только английские буквы любого регистра.