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

Ответы 2

  • 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.

    • Автор:

      anneliese
    • 5 лет назад
    • 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.

    • Автор:

      corey
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years