• Помогите составить блок схему к задачи Pascal
    program sdasdas;
    var
    a:array [1..10] of integer;
    p,i:integer;
    begin
    randomize;
    for i:=1 to 10 do
    a[i]:=random(495)+5;
    p:=1;
    begin
    for i:=1 to 10 do
    if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
    writeln('Произведение =',p);
    end;
    readln;
    end.

Ответы 1

  • Блок-схема к задаче Паскаль
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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