Дан массив а(n). определить количество нечетных и отрицательных элементов массива. изменить знак у элементов. вывести исходный и преобразованный массив и количество элементов.

139

270

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

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

гегпнгеггне

Информатика

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

Uses sysutils,windows; var a: array of integer; i,n,s,o: integer; begin o: =0; s: =0; setconsoleoutputcp(1251); randomize; write('введите "n": '); readln(n); setlength(a,n); for i: =0 to length(a) do begin a[i]: =random(10)-5; write(a[i]: 3); end; writeln; writeln; for i: =0 to length(a) do begin if a[i] mod 2=1 then inc(s); if a[i]< 0 then inc(o); a[i]: =a[i]*(-1); end; writeln('кол-во отрицательных элементов: ',o); writeln('кол-во нечетных элементов: ',s); writeln; for i: =0 to length(a) do write(a[i]: 3); readln; end.