Задание:
Срочно! Помогите пожалуста! Нужно написать програмный код в турбо паскале! Заранее ОГРОМНОЕ СПАСИБО! Заполнить массив из 10 элементов случайнымичислами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Решение:
var a: array[1… 10]of integer; i,x: integer; beginreadln (x); for i: =1 to 10 do begina[i]: =random (5); if a[i]=x then writeln ('a[',i,'] '); end; end.
Знаете другой ответ?