Ответ:
const N = 30;
var a : array[1..N] of integer;
i, j, x : integer;
Begin
for i := 1 to N do readln(a[i]);
readln(x);
for i := 1 to N do begin //перебираем элементы массива
if a[i] = x then begin //если находим элемент равный Х то
writeln('наименьший номер элемента равного X - ', i); //выводим сообщение
exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер
end;
end;
writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение
end.
Объяснение:
объяснения в комментариях программы
проверено на PascalABC
01.<span>program massiv5;</span>02.<span>uses crt;</span>03.<span>const N=10;</span>04.<span>type x=array [1..<span>N] </span>of integer;</span>05.<span>var a:x;</span>06.<span>i:integer;</span>07.<span>max:integer;</span>08.<span>imax:integer;</span>09.begin10.clrscr;11.randomize;12.<span>for i:=1 to <span>N </span>do</span>13.begin14.<span>a[i]:= -50+random(101);</span>15.<span>write (A[i]:5)</span>16.<span>end;</span>17.<span>writeln;</span>18.<span>imax:=1;</span>19.<span>max:=A[1];</span>20.<span>for i:=2 to <span>N </span>do</span>21.<span>if <span>max<a[i] </span>then</span>22.begin23.max:=a[i];24.imax:=i25.<span>end;</span>26.<span>writeln (‘Максимальный элемент в массиве=’,max:5);</span>27.<span>writeln (‘Его индекс=’,imax:5);</span>28.readln29.<span>end<span>.</span></span>
#1 Wi-Fi (интернет)
#2 сети
беспроводная проводная
+ -
- +
#3 Мастер 1, потому, что легче сделать (установить)
#4
а)Троянская программа
b) ?если лечение невозможно?
c)защищать компьютер от антивирусов и "обезвреживать" их
#5
1)компьютер
2)антивирус
3) интернет
3) текст
Не давно учила в школе))) вроде правильно!
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.