Задать вопрос
6 августа, 06:47

Дана последовательность из N случайных чисел в интервале [-50; 50]. Определить количество нечетных чисел имеющих четный порядковый номер.

Напишите программу через паскаль.

+4
Ответы (1)
  1. 6 августа, 08:09
    0
    Const n=10;

    var a:array[1 ... n] of integer;

    k, i:integer;

    begin

    Randomize;

    for i:=1 to n do begin

    a[i]:=random (101) - 50;

    write (a[i],' ') ;

    end;

    writeln;

    k:=0;

    for i:=1 to n do

    if (a[i] mod 20) and (i mod 2=0) then k:=k+1;

    writeln ('k = ', k) ;

    end.

    Пример:

    -28 - 27 - 46 - 20 - 6 - 15 44 - 41 2 - 50

    k = 3
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дана последовательность из N случайных чисел в интервале [-50; 50]. Определить количество нечетных чисел имеющих четный порядковый номер. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы