СРОЧНО!!!!
Заполните массив случайными числами в интервале [1,1000] и выведите номера всех элементов, значение которых равны значению К. В паскале!!!

Ответы (1)

Гулньара 16.12.2024 4

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a: array of integer;
i, n,k: integer;

begin
//Заполняем массив сл.числами
writeln('Размер массива : '); readln(n);
writeln('Число k : '); readln(k);
setlength(a,n);
for i := 0 to n-1 do
begin
a[i] := random(1, 1000);write(a[i]:4);
end;
writeln;
//Вывод номеров элементов = k
writeln('Номера элементов равных ',k);
for i := 0 to n-1 do
begin
if a[i]=k then write(i:4);
end;
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

СРОЧНО!!!! Заполните массив случайными числами в интервале [1,1000] и выведите номера всех элементов, значение которых равны значению К. В паскале!!!

Думаешь ответы не верны?

СРОЧНО!!!!
Заполните массив случайными числами в интервале [1,1000] и выведите номера всех элементов, значение которых равны значению К. В паскале!!!