Куда надо вставить mas[i] mod 2=0 чтобы генерировались все 18 элементов? Создайте массив из 18 элементов. Элементы могут принимать чётные значения от 0 до 700.
Выведите на экран:
Весь массив.
Наибольший элемент массива.
Номер наименьшего элемента массива.
program Arrays;
var
input: array[Integer] of Integer;
i: Integer;
largestElement: Integer = 0;
smallestElement: Integer = 999;
smallestElementPosition: Integer = 18;
begin
Randomize;
for i:=0 to 18 do
input[i] := Random(700);
writeln('Весь массив:');
for i:=0 to 18 do
begin
writeln(i, ': ', input[i]);
if largestElement < input[i] then
largestElement := input[i];
if smallestElement > input[i] then
begin
smallestElement := input[i];
smallestElementPosition := i;
end;
end;
writeln('Наибольший элемент массива:', largestElement);
writeln('Позиция наименьшего элемента:', smallestElementPosition);
end.