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

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

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.

Информация в компьютере представляется набором кодов, а кодировка определяет то, как от кодов – неких чисел – перейти к тому, что ими закодировано.

Коля получил сообщение, первый символ которого он расшифровал как к. Согласно кодовой таблице КОИ-8 (в первом вложении), первый байт полученного сообщения был CB (в 16-ричной системе счисления). Петя же кодировал свое сообщение в другой кодировке (вторая таблица), в которой CB соответствует Л.

Аналогично, можно получить, что на самом деле должно было быть в сообщении, например, Р (код F2 в кодировке КОИ-8) соответствует т в кодировке Windows.

В итоге исходная строка, которую передавал Петя, окажется такой: "Любая информация может быть представлена с чисел"

Информация в компьютере представляется набором кодов, а кодировка определяет то, как от кодов – неких чисел – перейти к тому, что ими закодировано.

Коля получил сообщение, первый символ которого он расшифровал как к. Согласно кодовой таблице КОИ-8 (в первом вложении), первый байт полученного сообщения был CB (в 16-ричной системе счисления). Петя же кодировал свое сообщение в другой кодировке (вторая таблица), в которой CB соответствует Л.

Аналогично, можно получить, что на самом деле должно было быть в сообщении, например, Р (код F2 в кодировке КОИ-8) соответствует т в кодировке Windows.

В итоге исходная строка, которую передавал Петя, окажется такой: "Любая информация может быть представлена с чисел"