Задать вопрос Регистрация
Помочь другим

  • В программе Pascal ABC
    Помогите составить программы

    question img

Ответы 1

  • 2)

     

    const n = 6;var  a: array[1..n] of integer;  i, s: integer;begin  s := 1;  for i := 1 to n do begin    a[i] := random(5);    write(a[i], ' ');    if(a[i] > 1) then s := s * a[i];  end;  writeln;  writeln('Произведение эл. > 1 : ', s);end.

     

    3)

     

    const n = 8;var  a: array[1..n] of integer;  i, max: integer;begin  for i := 1 to n do begin    a[i] := 100000 + random(10000);    write(a[i], ' ');    if(a[i] > max) then max := a[i];  end;  writeln;  writeln('Наибольшее кол-во населения: ', max);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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