Дан массив А(N). Определить количество нечетных и отрицательных элементов массива....

Question

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

Answer 1

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

Comments

Помогите, пожалуйста. В двумерном массиве В[1..6,1..6], полученном случайным образом и содержащем положительные и отрицательные числа, найти сумму элементов первого столбца, если полученная сумма больше суммы элементов главной диагонали, то создать одномерный массив, в который записать максимальные элементы строк исходного массива, в противном случае определить среднее арифметическое положительных и отрицательных чисел массива В.