Условие задания:
2 Б.
Заполни пропуски и восстанови код.
program FindMaxWithCondition;
var
\(~\)arr: array[\(1\)..\(100\)] of Integer;
\(~\) n, i, max: Integer;
begin
\(~\)Write('Введите количество элементов массива: ');
\(~\)ReadLn(n);
\(~\)WriteLn('Введите элементы массива:');
\(~\)for i :\(= 1\) to n do
\(~\)begin
\(~\)\(~\)\(~\)\(~\)\(~\)Read(arr[i]);
\(~\)end;
max :\(=\) -MaxInt;
\(~\)for
\(~\)begin
\(~\)\(~\)\(~\)\(~\)\(~\)if \(~\)then
\(~\)\(~\)\(~\)\(~\)\(~\)max :\(=\) arr[i];
\(~\)end;
\(~\)if max \(=\) -MaxInt then
\(~\)\(~\)\(~\)\(~\)\(~\)WriteLn('Нет положительных элементов.')
\(~\)else
\(~\)\(~\)\(~\)\(~\)\(~\)WriteLn('Максимальное положительное значение: ', max);
end.
var
\(~\)arr: array[\(1\)..\(100\)] of Integer;
\(~\) n, i, max: Integer;
begin
\(~\)Write('Введите количество элементов массива: ');
\(~\)ReadLn(n);
\(~\)WriteLn('Введите элементы массива:');
\(~\)for i :\(= 1\) to n do
\(~\)begin
\(~\)\(~\)\(~\)\(~\)\(~\)Read(arr[i]);
\(~\)end;
max :\(=\) -MaxInt;
\(~\)for
\(~\)begin
\(~\)\(~\)\(~\)\(~\)\(~\)if \(~\)then
\(~\)\(~\)\(~\)\(~\)\(~\)max :\(=\) arr[i];
\(~\)end;
\(~\)if max \(=\) -MaxInt then
\(~\)\(~\)\(~\)\(~\)\(~\)WriteLn('Нет положительных элементов.')
\(~\)else
\(~\)\(~\)\(~\)\(~\)\(~\)WriteLn('Максимальное положительное значение: ', max);
end.
Вы должны авторизоваться, чтобы ответить на задание. Пожалуйста, войдите в свой профиль на сайте или зарегистрируйтесь.
Вход
или
Регистрация