• ПОМОГИТЕ СРОЧНО!!! ПАСКАЛЬ
    var m, k, i; integer;
    mas; array [1..10] of integer;
    begin
    mas[1]:=14; mas[2]:=-4; mas[3]=12;
    mas [4]:=-6; mas[5]:=8; mas[6]:=-10; mas[7]:=-8; mas[8]:=-9; mas[9]:=6; mas[10]:=-5;
    m:=0; k:=0
    for i:=1 to 10 do
    if (mas[i]<0) and (i mod 2=0) then k:=k+mas
    if mas[i]<10 then m:=m+mas[i]
    write(m+k)
    end.

Ответы 1

  • А что сделать надо? Исправить код? Держи. Вроде так.var m, k, i; integer;mas; array [1..10] of integer;beginmas[1]:=14; mas[2]:=-4; mas[3]=12;mas [4]:=-6; mas[5]:=8; mas[6]:=-10; mas[7]:=-8; mas[8]:=-9; mas[9]:=6; mas[10]:=-5;m:=0; k:=0for i:=1 to 10 doif (mas[i]<0) and (i mod 2=0) then k:=k+masif mas[i]<10 then m:=m+mas[i]write(m)+(k)end.
    • Автор:

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

Войти через Google

или

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

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

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