Язык Паскаль, использовать только if,then,else Напишите программу в которой пользователю предлагается - id1160807520210615 от dima1107 15.06.2021 06:05

Question

Информатика: Язык Паскаль, использовать только if,then,else Напишите программу в которой пользователю предлагается дополнить до 100 некоторое число a (a-случайное число, меньшее 100) ответ пользователя проверяется и комментируется.

dima1107 · Accepted Answer

Program abc;
type
mas = array[0..1000] of integer;
var
a: mas;
i, n, max: integer;
begin
WriteLn('Введите кол-во эл-тов массива:');
  ReadLn(n);
for i := 1 to n do
begin
WriteLn('Введите значение элемента №', i);
ReadLn(a[i]);
end;
WriteLn('Все элементы массива имеют значение');
max := -1;
for i := 1 to n do
if a[i] > max then
max := a[i];
    if max <> -1 then
   Writeln('Максимальное значение положительного элемент = ', max)
else Writeln('Положительных элементов нет');
   ReadLn;
end.

MOGZ ответил