СРОЧНО!!!! 50 БАЛЛОВ!!!
Заполните массив случайными числами в интервале [1,1000] и выведите номера всех элементов, значение которых равны значению К. В паскале!!!
//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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
