Напишите программу нахождения максимального среди четырех целых чисел. Я сделал, но выдаёт ошибку! Помогите!
Ответ:
Объяснение:
Перед алгоритмом надо обнулить 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.
написал после begin выдаёт такую же ошибку
Надо писать после begin
я написал это перед алгоритмом, пишет Встречено 'c', а ожидался раздел описаний или begin
c:=0
Скажи как с обнулить