Одномерные массивы (Векторы). PascalAbc. Вывести сумму элементов, значения которых находятся в диапазоне - Pascal ABC

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

Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

Код к задаче: «Одномерные массивы (Векторы). PascalAbc. Вывести сумму элементов, значения которых находятся в диапазоне - Pascal ABC»

textual
const
  N = 14;
var
  mas:array[1..N] of integer;
  i,s,a,b:integer;
begin
  readln(a,b);
  randomize;
  s:=0;
  for i:=1 to N do begin
    mas[i] := random(101)-50;
    if (mas[i]>=a)and(mas[i]<=b) then s:= s + mas[i];
    writeln('A[',i,'] = ',mas[i]);
  end;
  writeln('Сумма = ',s);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.222 из 5


СДЕЛАЙТЕ РЕПОСТ