Информатика, опубликовано 2018-08-22 22:40:52 by Гость
Найти большее из четырёх чисел в Паскале (составить программу)
Ответ оставил Гость
Program Sample;
constn = 4;
vari, maxValue, inpValue: integer;
begin
maxValue := low(maxValue);
for i := 1 to n do
beginWrite(Введите число: );
ReadLn(inpValue);
if maxValue maxValue := inpValue;
end;
WriteLn(Максимальное из , n, чисел равно , maxValue);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на