Помогите, нужно написать на языке Паскаль: известно что в массиве имеются элементы равные 5 определить номер первого из них

Question

Информатика

Пава

27 июня, 08:38

Помогите, нужно написать на языке Паскаль: известно что в массиве имеются элементы равные 5 определить номер первого из них

+4

Ответы (1)

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

Тонюха · Answer 1

Program z;

Var mas:array[1 ... 10] of integer;

i: integer;

Writeln ('Введите массив: ') ;

for i:=1 to 10 do

Readln (mas[i])

for i:=1 to 10 do

if (mas[i]=5) then

Writeln ('Элемент массива под номером', i,' равен пяти') ;

end;

Вот задача, по идее ошибок быть не должно.