сервис вопросов и ответовНужно составить программу с помощью Repeat,определяющую максимальное из всех введённых вами чисел.(Пусть признаком конца ввода чисел является введённое
5-9 класс|
|
число 0).
Linusik1309
25 марта 2014 г., 20:19:42 (10 лет назад)
Vitalik96
25 марта 2014 г., 23:13:39 (10 лет назад)
var
i, e : Integer;
begin
Writeln('Вводите числа:');
i := 0;
repeat
Readln(e);
if e > i then i := e;
until e = 0;
Writeln('Наибольшее число: ', i);
end.
Kubanuch81
26 марта 2014 г., 1:41:41 (10 лет назад)
Program abc;
uses crt;
const n=30;
var
a:array[1..n] of integer;
i, max:integer;
begin
clrscr;
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=2ton do
if a[i]>max then max:=a[i];
write('max=',max);
end.
Ответить
Другие вопросы из категории
подготовьте рассказ об устройствах для работы с данными , о которых не сказано в этом пункте ( есть : мобильный телефон , диктофон , факс ..
калькулятор , игровые приставки , фотокамера кинокамера , GPS - навигаторы
Читайте также
Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел. Программа
получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) .
Количество чисел не привышает 1000. Введеные числа не привышают 30000.
Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел.
Пример работы программы:
Входные данные Выходные данные
15 17
20
17
0
Помогите пожалуйста!Паскаль ABC
Составьте программу, определяющую минимальное из всех введенных вами чисел (число 99 - конец цикла).
Поомогите, пожайлуста. Нужно составить программу на паскале. Ежемесячная стипендия студента составляет a руб.Расходы на проживание превышают стипендию
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
1.Дано целое число составить программу которая определяет оканчивающие данное число цифрой семь.
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.
нужно написать программу (packal abc). программа такая: введи три числа (неизвесно какие 3 числа (целые или вещественные) так что 6 чисел ну типа
такого: var a,b,c:(integer)-целые; l,k,n:(real)-вещественные), найти сумму первых двух чисел, частное второго и третьего числа и утроить сумму трёх чисел. мне нужно составить программу дальше я знаю только начало: program ur1; var a,b,c:integer; l,k,n:real; begin и всё я дальше не могу сделать, помогите полажуйста чем можете!
Вы находитесь на странице вопроса "Нужно составить программу с помощью Repeat,определяющую максимальное из всех введённых вами чисел.(Пусть признаком конца ввода чисел является введённое", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.