Ответы и объяснения

  • nemp
  • хорошист
2014-02-08T22:45:25+04:00
Решение в файле, если нужны  пояснения - пишите.
Program my_arr;
const n=10;
var a:array[1..n] of integer; 
   i:byte;  
  c:integer;   
  s:string;
begin
Writeln('Исходный массив:');
    For i:=1 to 10 do 
           begin   
                a[i]:=random(21)+10;   
                write(a[i],' '); 
          end;
Writeln;
Write('Что ищем? ');
Readln(c);
For i:=1 to n do 
     if a[i]=c then   
                s:=s+'a['+inttostr(i)+'] = '+inttostr(a[i])+' ';
Writeln(s);  
  end.
программа не ищет элемент равный х
Извините, не тот файл