• не получается сделать программу в ABCпаскаль, в чем ошибка?

    uses crt;
    var
    a: array [1..20] of index;
    begin
    for i:= 1 to 15 do;
    readln(a[i]);
    for i:= 1 to 15 do;
    writeln(a[i]);
    for i:= 1 to 15 do;
    if a[i] mod 2 = 0 then S:=S+1;
    S:= S+a[i];
    writeln(S);
    end.

Ответы 2

  • в var нет переменных i и S. В остальном задача принимает 15 чисел и проверяет, сколько чётных среди них.P.S. Надо переделать!Зачем складывать член массива с количеством? И ещё - сперва опиши, что такое S - программа же не знает, с чем складывать S!
    • Автор:

      slimdwuc
    • 5 лет назад
    • 0
  • uses crt;vara: array [1..20] of integer;k,s,i:integer;beginwriteln;for i:= 1 to 15 do readln(a[i]);for i:= 1 to 15 do write(a[i],' ');writeln;for i:= 1 to 15 do if a[i] mod 2 = 0 then  begin  S:=S+a[i];  k:=k+1;  end;writeln('S = ',s,' k = ',k);end.Пример:14548720751267843511513480568714 54 87 20 75 12 67 84 35 11 51 34 80 56 87 S = 354 k = 8
    • Автор:

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

Войти через Google

или

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

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

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