Question

ДАЮ МНОГО БАЛЛОВ! Паскаль. Нужно добавить в код разность, частное и произведение. Можно сделать 2 из 3, можно с небольшими ошибками. Срочно нужно, помогите пожалуйста! program z_2; var s,i: integer; a: array[1..10] of integer; begin s:=0; randomize; for i:=1 to 10 do begin a[i]:=random(100); write(a[i], ' '); s:=s+a[i] end; writeln ('s=', s) end.

Answer 1

var s,i,p: integer;

a:array[1..10] of integer;

begin

s:=0;

p:=1;

randomize;

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i], ' ');

s:=s+a[i];

p:=p*a[i];

end;

writeln;

writeln ('s=', s);

writeln ('p=', p);

end.

смог добавить произведение,а вот с частным условие не совсем полное, частное чего? последнего и первого элемента? суммы на количество?

Answer 2

Конечно, вот ваш код с добавленной разностью, частным и произведением элементов массива:

pascalCopy code
program z_2;
var
  s, i, difference, quotient, product: integer;
  a: array[1..10] of integer;
begin
  s := 0;
  randomize;
  
  for i := 1 to 10 do
  begin
    a[i] := random(100);
    write(a[i], ' ');
    s := s + a[i];
  end;
  
  writeln('s =', s);
  
  difference := a[1] - a[2]; // Вычисляем разность первых двух элементов
  writeln('Difference between the first two elements: ', difference);
  
  // Проверяем деление на ноль перед вычислением частного
  if a[3] <> 0 then
  begin
    quotient := a[4] div a[3]; // Вычисляем частное четвёртого и третьего элементов
    writeln('Quotient of the fourth and third elements: ', quotient);
  end
  else
    writeln('Cannot calculate quotient because the third element is zero.');
  
  product := a[5] * a[6]; // Вычисляем произведение пятого и шестого элементов
  writeln('Product of the fifth and sixth elements: ', product);
end.

Этот код вычисляет разность между первыми двуми элементами массива, частное четвёртого и третьего элементов (при условии, что третий элемент не равен нулю) и произведение пятого и шестого элементов массива.