Меню сайта

Задача №8
Дан массив из —nэлементов.Найти сумму элементов с четными индексами.
Program -mas_7-
uses crt-
Var a:array[1..1000] -of integer-
n,i:integer-
s:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
s:=0-
randomize-
For i:=1 to n do
Begin
a[i]:=random(50)- write(a[i]:4)-
If i -mod 2=0 then s:=s+a[i]-
End-
Writeln-
Writeln(‘Сумма -=’,s:4)-
Readln-
End.
Категория: Массивы | Дата: 05.12.12

Меню раздела
Блок