• Free pascal! Дан массив определенной длины. Проинициализировать массив и найти количество элементов массива, имеющих четные порядковые номера, но являющиеся нечетными числами.

Ответы 1

  • uses Crt;Const N = 13;Var   A:array[1..N] of integer;   i,k:integer;BeginRandomize;ClrScr;k:=0;For i:= 1 to N do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    if (i mod 2 = 0)and(A[i] mod 2 <> 0) then k:=k+1;    End;WriteLn;Write('k = ',k);ReadLnEnd.
    • Автор:

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

Войти через Google

или

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

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

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