НЕ (Вторая буква гласная) ИЛИ НЕ (Последняя буква согласная)
1. НЕ (true) ИЛИ НЕ (false) = true
2. НЕ (true) ИЛИ НЕ (true) = false
3. НЕ (false) ИЛИ НЕ (true) = true
4. НЕ (true) ИЛИ НЕ (true) = false
5. НЕ (false) ИЛИ НЕ (true) = true
Ответ: 2, 4.
1. Нельзя использовать точки
2. Нельзя оставлять поле именования пустым
3. Не должно быть символов * / \ | ?
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.