С клавиатуры вводятся 12 чисел . Найти максимальное . По информатике сделать в турбопаскаль
5-9 класс
|
program chisla;
var A: array [1..12] of integer;
max: integer;
i:integer;
begin
max:=0;
writeln ('введите 12 чисел');
readln(A[12]);
for i:=1 to 12 do
if A[i] > max then max:=A[i];
writeln ('максимальное число =', max);
end.
Другие вопросы из категории
данного изображения?
юникод.При этом информационное сообщение увеличилось на 400 бит.Какова длинна сообщения в битах?
Читайте также
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
положительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until