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

0 голосов
38 просмотров

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


Информатика (12 баллов) | 38 просмотров
Дано ответов: 2
0 голосов

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.

(78 баллов)
0 голосов

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.

(7.2k баллов)