Uses crt;
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
<span>end.</span>
Ответ:
1 - 1, (4 тоже верно, будут еще индексы выводиться)
2 - 2 - всё верно
3 - 3 59 элементов
4 - 4 массив и 2 множество подходят оба ответа
5 - 4 S := 1
6 - 2)Сумма неотрицательных элементов массива
7 - 1)A : array [1..25] of byte
3)A : array [1..25] of integer
оба правильно
8 - 1)Индекс максимального элемента массива (в переменной m)
9 - программа не правильная
Вот. Свои ответы добавлены темно-зеленым цветом
Книга не лежит на столе.
Рена не идёт в школу.
Не все фрукты красного цвета.
Не все птицы умеют летать.
Const n = 10;
Var m : array[1..n] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to n do
Begin
m[i]:=Random(50);
Write(m[i]:3);
end;
Writeln;
For i:=1 to n do
Begin
If not Odd(m[i]) then m[i]:=m[i]*2;
Write(m[i]:3);
end;
Writeln;
end.