Задание:
Помогите пожалуйста написать прогу, заранее спасибо) Заполните массив случайными числами от 0 до 4 (вывести его на экран) и выведите на экран номера тех элементов, значения которых равны х (х вводится с клавы)
Решение:
Uses crt; const n=10; var a: array[1… n] of integer; i,x: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (4); writeln (a[i]); end; writeln; readln (x); writeln; for i: =1 to n doif a[i]=x then writeln (i); end.
Знаете другой ответ?