Есть ли в данном массиве элементы равные заданному числу? Если есть, то вывести номер одного из них.

Работа в паскале, массивы.

Question

Информатика

Леонтия

11 апреля, 00:45

Есть ли в данном массиве элементы равные заданному числу? Если есть, то вывести номер одного из них.

Работа в паскале, массивы.

+3

Ответы (1)

Знаете ответ на вопрос?

Горя · Answer 1

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, C:integer;

Begin

Randomize;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

A[i]:=random (N) ;

Write (' ', A[i]) ;

End;

WriteLn;

Write ('Введите число: ') ; ReadLn (C) ;

i:=1;

While (i
Begin

i:=i+1;

End;

if A[i]=C then WriteLn ('Номер элемента, равного ', C,': ', i)

else WriteLn ('В массиве нет таких элементов')

End.

Есть ли в данном массиве элементы равные заданному числу? Если есть, то вывести номер одного из них.Работа в паскале, массивы.

Есть ли в данном массиве элементы равные заданному числу? Если есть, то вывести номер одного из них.

Работа в паскале, массивы.