Дан массив, содержащий n элементов и заполненный случайными числами от -10 до 9. сформировать новый массив из значений элементов, стоящих на четных местах. подсчитать количество отрицательных и положительных значений элементов в новом массиве.

214

477

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

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

Xylinado

Информатика

4,7(32 оценок)

Var b,c,n,i,r: integer; mass1: array[1..1000] of integer; mass2: array[1..1000] of integer; begin writeln('введите кол-во элементов массива'); read(n); r: =1; for i: =1 to n do begin mass1[i]: =random(19)-10; if i mod 2=0 then begin mass2[r]: =mass1[i]; r: =r+1; end; end; for i: =1 to r do if mass2[r]> 0 then c: =c+1 else b: =b+1; writeln('исходный массив'); for i: =1 to n do write(mass1[i]: 4); writeln; for i: =1 to r do write(mass2[i]: 4); writeln; writeln('кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b); end.

oaooks

Информатика

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

Var a,b: array of integer; n,i,p,o: integer; begin readln(n); setlength(a,n); for i: =0 to n-1 do a[i]: =random(-10,9); n: =n div 2; setlength(b,n); for i: =0 to n-1 do begin b[i]: =a[2*i]; if b[i]> 0 then p+=1 else if b[i]< 0 then o+=1; write(b[i],' '); end; writeln(); writeln('положительных ',p); writeln('отрицательных ',o); end.