Question

Помогите решить задачи на цикл с параметром.Решения оформить как в Паскале.1) задать 5 чисел. найти среднюю сумму положительных чисел, произведение чисел, некратных 12 и количество четных чисел среди заданных2)В фирме работают 5 сотрудников. какую сумму нужно заказать в банке для выплаты им заработной платы, если их зарплата меняется каждый месяц и задаётся бухгалтером с клавиатуры ?3)Задать 20 чисел.найти среднее произведение чисел, больших 8 и сумму чисел, некратных 15.

Answer 1

1-задача
var    A:array[1..5] of integer;
 s,P,K,i,c :integer;
begin
   for I:=1 to 5 do begin
      write('ведите число ');
      readln(A[i]);
   end;
   S:=0; c:=0;
   P:=1; K:=0;
   for I:=1 to 5 do begin
      if  a[i]>0 then begin S:=S+A[i]; c:=c+1; end;
      if (a[i] mod 12)<>0 then P:=P*A[i];
      if (a[i]mod 2)=0 then K:=K+1;
   end;
   writeln('средняя сумма положительных чисел= ',S/c) ;
   writeln('произведение чисел не кратных 12= ',P) ;
   writeln('количество чётных чисел= ',k) ;
end.
можно сделать и с одним циклом. если надо - отпишись.

задача 2
расчёт с учётом того что у сотрудников разная ЗП
тоже можно сделать с одним  циклом.
var    A:array[1..5] of integer;
   i,zp:integer;
begin
   for I:=1 to 5 do begin
    write('ведите зарплату сотрудника ',i,': ');
    readln(A[i]);
   end;
  ZP:=0;
  for I:=1 to 5 do ZP:=ZP+A[i];
  write('общая сумма=',ZP);
   end.
задача 3
var    A:array[1..20] of integer;
   i,P,S,summ:integer;
begin
   for I:=1 to 20 do begin
    write('ведите число ');
    readln(A[i]);
   end;
  P:=1; S:=0;Summ:=0;
  for I:=1 to 20 do begin
    if A[i]>8 then  begin P:=P*a[i];S:=S+1; end;
    if (A[i]mod 15)<>0 then summ:=summ+A[i];
  end;
  writeln('среднее произведение чисел больше 8= ',P/S);
  write('семма чисел не кратных 15= ',summ);
   end.

и это тоже можно с одним циклом

Answer 2

Задача 1: Найти среднюю сумму положительных чисел, произведение чисел, некратных 12, и количество четных чисел среди заданных.

Для решения этой задачи на цикле с параметром в Pascal можно использовать следующий код:

program Task1;
var
  i, count, sum, product, evenCount: integer;
  num: array[1..5] of integer;
begin
  sum := 0;
  product := 1;
  evenCount := 0;

writeln('Введите 5 чисел:');
  for i := 1 to 5 do
  begin
    readln(num[i]);
    if num[i] > 0 then
    begin
      sum := sum + num[i];
      product := product * num[i];
    end;
    if (num[i] mod 2) = 0 then
      evenCount := evenCount + 1;
    if num[i] mod 12 <> 0 then
      count := count + 1;
  end;

writeln('Средняя сумма положительных чисел: ', sum / count);
  writeln('Произведение чисел, некратных 12: ', product);
  writeln('Количество четных чисел: ', evenCount);
end.

Задача 2: Найти сумму для выплаты заработной платы в фирме.

В этой задаче сотрудники имеют изменяющуюся зарплату, которая задается бухгалтером с клавиатуры. Для решения этой задачи на цикле с параметром в Pascal можно использовать следующий код:

program Task2;
var
  i, sum: integer;
  salary: array[1..5] of integer;
begin
  sum := 0;

writeln('Введите зарплату для каждого из 5 сотрудников:');
  for i := 1 to 5 do
  begin
    readln(salary[i]);
    sum := sum + salary[i];
  end;

writeln('Сумма для выплаты заработной платы: ', sum);
end.

Задача 3: Найти среднее произведение чисел, больших 8, и сумму чисел, некратных 15.

Для решения этой задачи на цикле с параметром в Pascal можно использовать следующий код:

program Task3;
var
  i, count, sum, product: integer;
  num: array[1..20] of integer;
begin
  sum := 0;
  product := 1;
  count := 0;

writeln('Введите 20 чисел:');
  for i := 1 to 20 do
  begin
    readln(num[i]);
    if num[i] > 8 then
    begin
      sum := sum + num[i];
      product := product * num[i];
      count := count + 1;
    end;
    if num[i] mod 15 <> 0 then
      sum := sum + num[i];
  end;

writeln('Среднее произведение чисел, больших 8: ', product / count);
  writeln('Сумма чисел, некратных 15: ', sum);
end.

Примечание: Убедитесь, что вы используете правильные ключевые слова и синтаксис для вашей среды разработки Pascal, чтобы код успешно скомпилировался и выполнился.