Найти сумму элементов,стоящих на четных местах в массеве из 10 элементов,заданных с клавиатуры

2

Ответы и объяснения

2013-06-14T15:51:08+04:00

var a:array [1..10] of integer;

       i,s:integer;

begin

for i:=1 to 10 do

begin

readln(a[i]);

if i mod 2=0 then s:=s+a[i];

end;

writeln(a[i]);

end.

  • Sky09
  • профессор
2013-06-14T22:37:51+04:00

Uses crt;
var a:array[1..10] of real;
i:integer; s:real;
begin

  writeln('Введите массив:');
  for i:=1 to 10 do
  begin
    readln(a[i]);
    if (i mod 2=0) then s:=s+a[i];
  end;
  writeln;
  write('Summa=',s);
end.