Напишите программу нахождения максимального среди четырех целых чисел. Я сделал, но выдаёт ошибку
Noltee
3
05.06.2020 11:22
3
Другие вопросы по теме Информатика
PROFESSIONALL
05.12.2020 15:53
daryna27
05.12.2020 15:49
BoGDAn4iK2015
05.12.2020 15:49
Янепоняла
13.05.2021 16:31
ZнyцPлaй
13.05.2021 16:32
Miratrix
13.05.2021 16:36
malina78911
17.09.2019 03:40
Мафаняяя
01.10.2019 19:11
Популярные вопросы
- Назовите число обратные числам 3/10;4/5;13/15;6/25;21/28;5/3;35/44;200/11;25;71;321....
2 - Может кто-то понимает, что блин делать...
3 - 13. Сумма цифр двузначного числа 13. Если после этого числа без про-...
3 - 1. Укажите СПП с придаточными определительными. А.Стало совсем темно,...
3 - те кто шарит! умоляю, информатики,программисты!...
3 - Число –5 является корнем уравнения x2 +13x+р=0. Найдите второй корень...
1 - Вычислите значение функции...
2 - Какая формула решения квадратного трехчлена после нахождения дискриминанта...
1 - сор по математике 6 класс ...
1 - Вычислить значение 3а+2b,если а=5 8/9; b=3 7/8...
1
Объяснение:
Перед алгоритмом надо обнулить c
Или попробовать так
var Max,i:integer;
C:array[1..4] of integer;
begin
Readln(c[1],c[2],c[3],c[4]);
Max:=-32678;
for i:=1 to 4 do
if c[i]> Max then Max:=C[i];
writeln('Max=',Max);
readln;
end.