Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189425
18.05.2016, 17:16
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль : Определите количество и сумм у элементов одномерного мас-
сива, попавших в заданный интервал [a,b].

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 14:10
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
z:array[1..n]of integer;
a,b,c,d:integer;
begin
{создаем массив}
writeln('Massiv:');
randomize;
for b:=1 to n do
begin
z[b]:=random(100);{новый элемент}
write(z[b]:3);{выводим}
end;
writeln;
{вводим нижнюю границу интервала}
repeat
write('Enter A:');
readln(a);
until(0<a)and(a<n);
{вводим верхнюю границу интервала}
repeat
write('Enter B:');
readln(b);
until(a<b)and(b<=n);
{суммируем интервал}
for c:=a to b do
d:=d+z[c];
{выводим результат}
writeln('count:=',b-a+1,'summa:=':10,d);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа