Var
a:array[1..10] of integer;
b,i,k:integer;
begin
Randomize;
Write('Введите количество элементов в массиве: ');
for i:=1 to 10 do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
Writeln;
Write('Какое число искать? ');
Readln(b);
k:=0;
for i:=1 to 10 do
if a[i]=b then Inc(k);
Writeln('Число встречается ',k,' раз')
end.
Подробнее - на Znanija.com -
znanija.com/task/29303328#readmore
<span>целый целый R := A + B
тип результата: целый
целый целый R := A - B
</span><span><span>тип результата: целый
</span>целый целый R := A * B
</span><span>тип результата: целый
целый целый R := A / B
</span><span><span>тип результата: вещественный
</span>целый целый A > B
</span><span><span>тип результата: логический (true/false)
</span>
целый целый A < B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный R := A + B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A - B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A * B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A / B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный A > B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный A < B </span>
<span><span>тип результата: логический (true/false)
</span></span>
То что на красный ехать нельзя ,а на зелёный можно.
Решение задач во вложении.
Код Pascal:
1)
Var
S:real;
n:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+1/Sqr(2*n+1);
WriteLn('S = ',S);
End.
2)
Var x,y:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
if (x = 0)and(y <> 0) then WriteLn('Ось абсцисс')
else if (y = 0)and(x <> 0) then WriteLn('Ось ординат')
else if (x = 0)and(y = 0) then WriteLn('Начало координат')
else WriteLn('(',x,',',y,') не принадлежит осям координат')
End.