Напишите программу нахождения максимального среди четырех целых чисел. Я сделал, но...

+984 голосов
1.7m просмотров

Напишите программу нахождения максимального среди четырех целых чисел. Я сделал, но выдаёт ошибку! Помогите!


Информатика (18 баллов) | 1.7m просмотров
Дан 1 ответ
+137 голосов

Ответ:

Объяснение:

Перед алгоритмом надо обнулить 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.

(200 баллов)
+44

написал после begin выдаёт такую же ошибку

+145

Надо писать после begin

+72

я написал это перед алгоритмом, пишет Встречено 'c', а ожидался раздел описаний или begin

+55

c:=0

+168

Скажи как с обнулить