Массывы. Дан массив. Найти:.....

[naty7773]

Дан массив. Найти:
c) сумму элементов массива, значения которых не превышают 20;
d) сумму элементов массива, больших числа а;
e) сумму нечетных элементов;
f) сумму элементов, кратных заданному числу;
g) сумму элементов массива, кратных а или b.

Помогите пожалуйста!!!((

[ByAlex]

Сообщение от naty7773

Дан массив. Найти:
c) сумму элементов массива, значения которых не превышают 20;
d) сумму элементов массива, больших числа а;
e) сумму нечетных элементов;
f) сумму элементов, кратных заданному числу;
g) сумму элементов массива, кратных а или b.

Помогите пожалуйста!!!((

Вот, держи на Delphi -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  N=10;
var
  Arr:array[1..N] of integer;
  i,j,SumC,SumD,SumE,SumF,SumG,Number,a,b:integer;
begin
  SumC:=0;
  SumD:=0;
  SumE:=0;
  SumF:=0;
  SumG:=0;
  write('Input the data - '#13#10'a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('Input the number = ');
  readln(Number);
  writeln('Massive is -');
  for i := 1 to N do
  begin
    write('A[',i,'] = ');
    readln(Arr[i]);
    if (Arr[i] < 20) then
      SumC:=SumC+Arr[i];
    if Arr[i]>a then
      SumD:=SumD+Arr[i];
    if ((Arr[i] mod 2) <>0) then
      SumE:=SumE+Arr[i];
    if ((Arr[i] mod Number) <>0) then
      SumF:=SumF+Arr[i];
    if (((Arr[i] mod 2) = 0) or ((Arr[i] mod 3) = 0)) then
      SumG:=SumG+Arr[i];
  end;
  writeln;
  write('c) - Sum =  ',SumC,#13#10'd) - Sum =  ',SumD,#13#10'e) - Sum =  ',SumE,
  #13#10'f) - Sum =  ',SumF,#13#10'g) - Sum =  ',SumG);
  readln;
end.

[naty7773]

Спасибо большое))