На 1 пункт:
program mueta;
uses crt;
const n=(любому числу, например 3);
var k:array[1..n]of integer;
s:array[1..n]of integer;
begin
clrscr;
for i:=1 to n do begin
writeln('введите эл-ты массива s[i]=');
readln(s[i]);
end;
for i:=1 to n do begin
if s[i]>0
then
writeln('s[i] положительное число', s[i]);
ENd.
2)На второй тоже самое только нужно заменить массив на(k) условие нужно поменять на s[i]mod 2=0
Он с иголками и носит на них грибы(ёж)
она пьёт молоко и говорит мяу(кошка)
она говорит му и даёт молоко(корова)
на ней готовят еду(печка)
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
Мы имеем дело с импликацией. (Г-гласные, С - согласные)
(Г+Г)->С = ¬(Г+Г)+С = ¬Г*¬Г+С
Для представленных вариантов решений подходит только второй вариант.
Ответ: 2