Массив заполнен сразу
const a: array[1..8] of integer=(4,-2,-4,0,2,3,1,5);
var i:integer;
begin
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.
Массив заполняется с клавиаутры
var
a: array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do
readln(a[i]);
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.
Var x,z,k:integer;begin
writeln ('введите число');readln(x);k:=0;while x<>0 dobeginz:=x mod 10;x:=x div 10;if x mod 2=0 thenk:=k+1;end;writeln('кол-во чётных чисел :',k);end.
1) электронная почта
2)Outlook express
3)имя пользователя
4)название домена
Var s,x,b,a: real;
begin
readln(x,b,a);
s:=sqrt((x*b)/a)+sqr(cos(exp(ln(x+b)*3)));
writeln(s);
end.
¬(¬a v b) = a ∧ ¬b
Ответ: a - истина, b - ложь