50 ! заполните массив случайными числами в интервале [1,1000] и выведите номера всех элементов, значение которых равны значению к. в !

175

305

Посмотреть ответы 2

Ответы на вопрос:

ryzhovaelena1

Информатика

4,8(16 оценок)

//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.