Помогите составить программу
10-11 класс
|
максимальное число из пяти чисел
var max, a:integer;
i:byte;
begin
max:=-32625;
i:=1;
while i<6 do
begin
writeln('Введи ', i, ' число');
readln(a);
if a>max then max:=a;
i:=i+1;
end;
writeln('Максимально число ', max);
end.
Другие вопросы из категории
связи, эквивалентный оптическому по пропускной способности?
Составьте программу по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных
помогите пожалуйста очень прошу )
Даны три массива:
A = {17.2, 9.3, 14.5, -11.7, 4.3,
5.9, -11.9, 12.3, -14.1, -15.3},
Читайте также
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
2. Составить программу для упорядоченное двух элементов по убыванию.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".