Question

1.сформируйте массив из 40 элементов любым известным вам с клавиатуры вводится число к. найдите в массиве элемент равный к, если таких элементов несколько, товыведите их все с указанием индекса, а если таких элементов нет,то выведите сообщение об этом. пример ввода пример вывода пример1 к=6 а[1]=6 a[8]=6 a[11]=6 пример2 к=0 заданных элементов в массиве нет паскаль. +должны быть написано begin, end и тд.

Answer 1

Const n=40;
var a:array[1..n] of integer;
k,i:integer;
b:boolean;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(31);
 write(a[i]:3);
 end;
writeln;
write('k = ');
readln(k);
b:=false;
for i:=1 to n do
 if a[i]=k 
  then begin writeln('a[',i,']=',k); b:=true; end;
if not b then writeln('Заданных элементов в массиве нет');
end.

Пример (для n=10):
 13  4 30  9 15 23  2 13 24 19
k = 13
a[1]=13
a[8]=13

Answer 2

Var
a:array [1..40] of integer;
i, k, l:integer;
begin
randomize;
for i:=1 to 40 do
a[i]:=random(30)+30;
writeln('Массив заполнен');
write('Введите число: ');
readln(k);
l:=0;
for i:=1 to 40 do
if a[i] = k then begin
writeln('A[',i,'] = ',k);
l:=l+1;
end;
if l=0 then
writeln('Увы, такого числа в массиве не встречается');
end.