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

  • 1.Дан одномерный массив.Найти произведение элементов массива кратных 3,нужно в Pascale программу вот эту написать
    2.Подсчитать средний балл за экзамен по математике у учащихся,сдавших его.Тоже через программу Паскаль написать программу.
    Помогите плиз)))

Ответы 1

  • 1)uses crt;const size = 10;var a:array [1..size] of integer;     i,p:longint;begin  p:=1;  randomize;  for i:=1 to size do    begin      a[i]:=random(20);      write (a[i],' ');      if (a[i] mod 3 = 0) then p:=p*a[i];    end;  writeln;  writeln (p);end.2)uses crt;const size = 10;var a:array [1..size] of integer;     i:integer;     s:real;begin  s:=0;  randomize;  for i:=1 to size do    begin      a[i]:=random(4)+1;      write (a[i],' ');      s:=s+a[i];    end;  writeln;  s:=s/size;  writeln (s);end.

    • Автор:

      santos
    • 5 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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