Регистрация
Polk1512
23.09.2020 20:46
Информатика
Есть ответ 👍

Приведите пример ценой,информации

187
275
Посмотреть ответы 3

Ответы на вопрос:

Modoki
Modoki
4,4(67 оценок)

мал 78нн 7гн шг гро дд оепл л ка тра п оо аа од е кп од о кар ддт р ав пл д р аар д о ку

Домiнiка
Домiнiка
4,6(62 оценок)

ну хз

Объяснение:

polly133
polly133
4,7(35 оценок)

const n=10;

var a: array [1..n] of integer;  

i, p: integer;

begin

writeln('Ввод значений элементов массива:');

for i:=1 to n do

read(a[i]);

write('Ввод p: ');

readln(p);

for i := 1 to n do

 begin  

 if a[i] = p then

   begin  

   writeln('Искомый элемент a[', i, '] = ', a[i]);

   break;  

   end;  

   if (i = n) and (a[i] <> p) then

     writeln('Искомого элемента в массиве нет');

 end;

end.

Популярно: Информатика