Question

Pascal.ABC. 1.Вывидите номер ячейки с минимальным числом. 2.Найдите сумму и произведение всех элементов массива. 3.Найти максимальное число и заменить его на 999 (random (30)). 4.Найди произведение отрицательных элементов массива (random (60)-30) За ранее спасибо.

Answer 1

В этой проге 1,2,3
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
   P:=1;
   s:=0;
 for i := 1 to 10 do begin
 a[i]:= random(31);
 write(a[i]:4);
 end;
 writeln;
    min:=a[1];
    max:=a[1];
    
   for i:=1 to 10 do begin
   
     If  min>a[i] then begin
      min:=a[i];
      k:=i;
      end;

      s:=a[i]+s;
      p:=a[i]*p;
      
      If max<a[i] then
       max:=a[i];
       K2:=i;
      end;
writeln('МИнимальное число:',min,'   номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
 else write(' 999');
 end;
 writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
 
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
   P:=1;
 for i := 1 to 10 do begin
 a[i]:= random(60)-30;
 write(a[i]:4);
 end;
 writeln;
 p:=1;
  for i:=1 to 10 do begin
   If a[i] < 0 then
    p:=p*a[i]; ;
    end;
   writeln('Произведение  :',p);
end.

Answer 2

Привет! Я рад помочь с решением задач на языке Pascal. Для выполнения указанных операций нам понадобится массив чисел. Предположим, у нас есть массив с именем "ABC" и размером, скажем, 10 элементов. Для простоты предположим, что массив уже заполнен случайными числами. Давайте выполним каждую операцию по порядку:

1. Выведите номер ячейки с минимальным числом:

pascalCopy code
var
  ABC: array[1..10] of Integer;
  i, minIndex: Integer;
  minValue: Integer;

begin
  { Предположим, что массив ABC уже заполнен случайными числами }
  { В качестве примера, заполним его случайными числами от 1 до 100 }
  Randomize;
  for i := 1 to 10 do
    ABC[i] := Random(100) + 1;

  { Ищем минимальное число и его индекс }
  minValue := ABC[1];
  minIndex := 1;
  for i := 2 to 10 do
  begin
    if ABC[i] < minValue then
    begin
      minValue := ABC[i];
      minIndex := i;
    end;
  end;

  { Выводим результат }
  Writeln('Номер ячейки с минимальным числом: ', minIndex);
end.

2. Найдите сумму и произведение всех элементов массива:

pascalCopy code
var
  ABC: array[1..10] of Integer;
  i, sum, product: Integer;

begin
  { Предположим, что массив ABC уже заполнен случайными числами }
  { В качестве примера, заполним его случайными числами от 1 до 100 }
  Randomize;
  for i := 1 to 10 do
    ABC[i] := Random(100) + 1;

  { Ищем сумму и произведение элементов массива }
  sum := 0;
  product := 1;
  for i := 1 to 10 do
  begin
    sum := sum + ABC[i];
    product := product * ABC[i];
  end;

  { Выводим результат }
  Writeln('Сумма всех элементов массива: ', sum);
  Writeln('Произведение всех элементов массива: ', product);
end.

3. Найти максимальное число и заменить его на 999 (random (30)):

pascalCopy code
var
  ABC: array[1..10] of Integer;
  i, maxIndex, maxValue: Integer;

begin
  { Предположим, что массив ABC уже заполнен случайными числами }
  { В качестве примера, заполним его случайными числами от 1 до 100 }
  Randomize;
  for i := 1 to 10 do
    ABC[i] := Random(100) + 1;

  { Ищем максимальное число и его индекс }
  maxValue := ABC[1];
  maxIndex := 1;
  for i := 2 to 10 do
  begin
    if ABC[i] > maxValue then
    begin
      maxValue := ABC[i];
      maxIndex := i;
    end;
  end;

  { Заменяем максимальное число на 999 }
  ABC[maxIndex] := 999;

  { Выводим результат }
  Writeln('Максимальное число: ', maxValue);
end.

4. Найдите произведение отрицательных элементов массива (random (60)-30):

pascalCopy code
var
  ABC: array[1..10] of Integer;
  i: Integer;
  negativeProduct: Integer;

begin
  { Предположим, что массив ABC уже заполнен случайными числами }
  { В качестве примера, заполним его случайными числами от -30 до 30 }
  Randomize;
  for i := 1 to 10 do
    ABC[i] := Random(61) - 30;

  { Ищем произведение отрицательных элементов массива }
  negativeProduct := 1;
  for i := 1 to 10 do
  begin
    if ABC[i] < 0 then
      negativeProduct := negativeProduct * ABC[i];
  end;

  { Выводим результат }
  Writeln('Произведение отрицательных элементов массива: ', negativeProduct);
end.

Приведенные примеры решают указанные задачи на языке Pascal с помощью массива "ABC". Каждый пример заполняет массив случайными числами в определенном диапазоне и затем выполняет соответствующую операцию.