Помогите пожалуйста) Программирование Паскаль

Помогите пожалуйста) Программирование Паскаль

Задать свой вопрос
Лариса
Это одна и та же задачка на всех 4-х листах?
Васька Мычко-Мегрин
Да) не могу излишние убрать) ошибку выдает)
Senen Danka
Непонятно, а для чего b дано, оно же не используется в формуле?
1 ответ
ПаскальАВС.НЕТ

const
  b=8;
var
  a:array of integer:=(23,30,35,12);
  c:array of integer:=(15,20,25,30);
  i:integer;
  y:real;  

function pr(c:array of integer):integer;
var
  i:integer;
begin 
result:=1; 
for i:=0 to 3 do
    result:=result*c[i];
end;  

begin
for i:=0 to 3 do
  y:=y+a[i]+c[i];
y:=y/pr(c);
writeln('Y=',y);    
end.  
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт