Срочно! Помогите пожалуста! Нужно написать програмный код в турбо паскале! Заранее ОГРОМНОЕ СПАСИБО!! Заполнить массив из 10 элементов
10-11 класс
|
случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Пример:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]
var a:array[1..10]of integer;
i,x:integer;
begin
readln(x);
for i:=1 to 10 do begin
a[i]:=random(5);
if a[i]=x then writeln('a[',i,'] ');
end;
end.
Другие вопросы из категории
или первый не сдал; 3. если четвертый не сдал, то первый сдал, а третий не сдал; 4. если четвертый сдал, то и первый сдал
Читайте также
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
e^(x+y) - степень!
Заранее спасибо