1. Ввести 3 числа и выбрать наибольшее. 2. Ввести 5 чисел и выбрать наибольшее. P.S. ( в программе Turbo Pascal (TPX))
5-9 класс
|
Лерка6666
21 июля 2013 г., 8:58:14 (10 лет назад)
Erkekabdykenova
21 июля 2013 г., 9:58:15 (10 лет назад)
const
Count = 5; // количество вводимых чисел
var
m : array [1..Count] of Integer;
i, e: Integer;
begin
Writeln('Введите числа:');
for i := 1 to Count do
begin
Write(i ,': '); Readln( m[i] );
end;
e := m[1];
for i := 1 to Count do
if m[i] > e then
e := m[i];
Write('Наибольшее: 'e);
Readln;
end.
Ответить
Другие вопросы из категории
Читайте также
Программу надо написать в PascalABC, с использованием команд repeat и until. Ввести натуральное число и определить, какие цифры встречаются несколько раз
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
ПОМОГИТЕ НАПИСАТЬ ЗАДАЧУ.
ввести два числа, найти квадрат наибольшего и извлечь квадрат наименьшего
Помоги пожалуйста с решением( по программе Паскаль)
ввести три числа и найти наибольшее из них.
Напишите пожалуйста, 3 программы на Pascal'е: 1. Дано целое число. Если оно положительное, то прибавить к нему 1, если же нет, то найти остаток
от деления этого числа на 2.
2. Ввести двузначное число. Определить, какая цифра в числе больше.
3. Дано число. Является ли число 7 его делителем?
Вы находитесь на странице вопроса "1. Ввести 3 числа и выбрать наибольшее. 2. Ввести 5 чисел и выбрать наибольшее. P.S. ( в программе Turbo Pascal (TPX))", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.