Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189420
18.05.2016, 17:12
0.00 руб.
0 2 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
написать программу на языке Паскаль: Найдите сумму первого и последнего, второго и предпослед-
него и т.д. элементов массива С . Выведите суммы на экран.

Обсуждение

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

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
c:array[1..n]of integer;
a,b:integer;
begin
{создаем массив}
writeln('Massiv C:');
randomize;
for a:=1 to n do
begin
c[a]:=random(100);{новый элемент массива}
write(c[a]:5);{выводим его}
end;
writeln;
{считаем суммы}
writeln('summa:');
a:=1;
b:=n;
while a<b do
begin
write(c[a]+c[b]:4);{выводим сумму}
inc(a);{увеличиваем индекс}
dec(b);{уменьшаем индекс}
end;
if a=b then write(c[a]:4);{выводим одно число, если кол-во эементов нечетное}
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
28.05.2016, 19:12
общий
как обойтись без inc и dec?
Форма ответа