давно
Старший Модератор
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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.