Const
N=15;
Var
a: array [1..N] of integer;
i, y : integer;
Begin
for i:=1 to N do readln(a[i]);
y:=0;
for i:=1 to N do
<span>If a[i]=a[N] then
</span> begin
y:=i;
writeln (y);
end;
<span>End.</span>
Клавиатура , она тоже средство ввода информации.
1) Заходишь в "Мой компьютер".
2) Нажимаешь правую кнопку мыши
3) Свойства
4) ОЗУ-твоя оперативная память
<span>Это количество возможных исходов в данном событии</span>