Запишите программу в синтаксисе паскаль ABC которая заполняет массив случайными числами...

Question

Запишите программу в синтаксисе паскаль ABC которая заполняет массив случайными числами на отрезке от -2 до 2 и считает сумму положительных элементов массива. Когда будете писать программу, не забывайте что в 9м классе простые алгоритмы и еще более простые операторы.

Answer 1

Const
  kk=100; { максимальный размер массива }

var
  a:array[1..kk] of integer;
  i,k,s:integer;

begin
  Write('Введите количество элементов массива: ');
  Read(k);
  Randomize;
  s:=0;
  for i:=1 to k do begin
    a[i]:=Random(5)-2;
    Write(a[i],' ');
    if a[i]>0 then s:=s+a[i]
    end;
  Writeln;
  Writeln('Сумма положительных элементов массива равна ',s)
end.

Пример
Введите количество элементов массива: 20
2 2 1 -2 -1 -1 1 0 1 2 1 0 2 1 2 -2 -1 -1 -1 -2
Сумма положительных элементов массива равна 15