Создать массив целых чисел и найти сумму нечётных чисел - Pascal ABC

Формулировка задачи:

Написать программу,которая создаёт массив N целых чисел и с помощью процедуры,находит сумму нечётных чисел.

Код к задаче: «Создать массив целых чисел и найти сумму нечётных чисел - Pascal ABC»

textual
{Создать массив целых чисел и найти сумму нечётных чисел}
const
  n_max=100;
type
  arr=array[1..n_max] of integer;
var
  x:arr;
  n:integer;
  s:integer;
 
procedure createarray(var a:arr);
var
  i:integer;
begin
  writeln('Array: ');
  for i:=1 to n do
    begin
      a[i]:=random(n)+1;
      write(a[i]:4);
    end;
  writeln;
end;
 
procedure sum(a:arr;var summ:integer);
var
  i:integer;
begin
  for i:=1 to n do
    if odd(a[i]) then
      summ:=summ+a[i];
end;
 
begin
  randomize; 
  readln(n);
  createarray(x);
  sum(x,s);
  writeln(s);
end.

15   голосов, оценка 3.867 из 5


СОХРАНИТЬ ССЫЛКУ