Найти в массиве элемент равный х или установить что он отсутствует.программа на паскале

146

377

Посмотреть ответы 2

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

artenyancz

Информатика

4,4(36 оценок)

если нужны объяснения то пиши в личку)

program zada4a; vari,x,n: integer; a: array [1..100] of integer; beginn: =0;

write('введите x - '); readln(x); for i: =1 to 5 do - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную. begin a[i]: =random(21); -это строчка озночает, что числа интервалом от 0 до 20. write(a[i]: 5); end; writeln; for i: =1 to 5 do begin if x=a[i] then begin writeln('элемент в массиве равный ',x,' находится под номером - ',i); n: =n+1; end; end; if n=0 then write('элемент c таким значением отсутствоет'); end.