Задать вопрос
15 октября, 05:09

Дан массив из 10 элементов. определить количество элементов, кратных 5, но не кратных 3

+1
Ответы (1)
  1. 15 октября, 06:42
    0
    Program n1;

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

    k, i: integer;

    begin

    randomize;

    write ('массив: ') ;

    k:=0;

    for i:=1 to 10 do

    begin

    a[i]:=random (100) ;

    write (a[i],' ') ;

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

    end;

    writeln;

    write ('k=', k) ;

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