Program poisk;
Uses crt;
Var
n,r,i,s:integer;
a:array [1..30] of integer;
Begin
Clrscr;
textcolor (9);
r:=0;
writeln ('Vvedite kol-vo elementov v massive');
readln (n);
For i:=1 to n do
begin
writeln ('Vvedite ',i,'-e chislo masiva');
readln (a[i]);
end;
writeln ('Vvedite chislo dlya poiska');
readln (s);
For i:=1 to n do
If a[i]=s
then r:=r+1;
If r=0
then writeln ('chislo ',s,' ne obnarugenno ni razy')
else writeln ('chislo ',s,' obnarugenno ',r,' raz(a)');
readkey;
END.
Сообщение отредактировано: Джейн Смит -