Очень прошу помочь с заданием по информатике ! Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных Х. Пример: Исходный массив: 4 0 1 2 0 1 3 4 1 0 Что ищем? 0 А[2], А...
Очень прошу помочь с заданием по информатике !
Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных Х.
Пример: Исходный массив: 4 0 1 2 0 1 3 4 1 0
Что ищем? 0
А[2], А[5], А[10]
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array [1..10] of integer;
b,i,x:integer;
begin
for i:=1 to 10 do a[i]:=random(5);
write('Исходный массив:');
for i:=1 to 10 do write(' ',a[i]);
writeln;
write('Что ищем? ');
readln(x);
for i:=1 to 10 do
if a[i]=x then
begin
if b>0 then write(', ');
write('A[',i,']');
b:=1;
end;
end.
Не нашли ответ?
Похожие вопросы