Сформировать массив из 15 случайных чисел, величина которых лежит в пределах от -11 до 10. подсчитать количество отрицательных элементов. вывести массив, состоящий из отрицательных элементов. напишите на паскале, надо, большое заранее

199

494

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

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

picika

Информатика

4,4(87 оценок)

Var ar: array[1..15] of integer; ar2: array of integer; k,i: integer; begin; randomize; writeln('array: '); for i: =1 to 15 do begin; ar[i]: =random(-11,10); write(ar[i]: 4); if ar[i]< 0 then begin; inc(k); setlength(ar2,k+1); ar2[k]: =ar[i]; end; end; writeln; writeln('final array: '); for i: =1 to k do write(ar2[i]: 4); end.