Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Помогите набрать задачу на Турбо Паскале

Пользователь удален Знаток (258), закрыт 13 лет назад
В массиве В(11) все элементы из интервала (а,в) занести в массив С и найти сумму элеметов полученого массива.
Лучший ответ
Gennady Гений (58768) 14 лет назад
Доброго времени суток.

type
DataItem = Integer; {тип элементов массива}
var
B, C : array[1..11] of DataItem;
j, k : Integer;
S, aa, bb : DataItem;
begin
Randomize;
for j:=1 to 11 do B[j] := Random(100); {заполнение массива числами из диапазона [0..99]}

for j:=1 to 11 do Write(B[j]: 3); {выводим исходный массив для контроля}
WriteLn;

WriteLn('Введите границы а и b ');
ReadLn(aa, bb);

k := 0;
S := 0;
for j:=1 to 11 do
if (B[j] > aa) and (B[j] < bb) then begin
k := k + 1;
C[k] := B[j]; {переписываем элемент}
S := S + C[k]; {и считаем сумму}
end;

for j:=1 to k do Write(C[j]:3); {выводим массив С}
WriteLn;

Writeln('Сумма элементов массива С равна ', S);

ReadLn;
end.

Удачи!
Остальные ответы
Похожие вопросы