ПАСКАЛЬ!!!
Напишите программу для нахождения большего из пяти введённых чисел, используя оператор If на паскале
var
Data: array[1..5] of Integer;
i, t: byte;
begin
t := 0;
for i :=1 to N do
ReadLn(Data[i]);
for i :=1 to N do
if t < Data[i] then
begin
t := Data[i];
end;
end;
WriteLn("Наибольшее: ", t);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
