Question

Ввести масив М[1..10]. Запишіть оператори для реалізації завдань: 1) Знайти суму лише від'ємних елементів;2) Знайти максимальний елемент;3) Знайти кількість додатних елементів;4) Елементи, які менше за 15, замінити на 5.​

Answer 1

Ответ:

var a:array [1..5] of integer;

i,max,k,j: integer;

begin

Write ('Введите элементы массива: ');

for i:= 1 to 5 do  

read (a[i]);

max:=a[1];

for i:= 1 to 5 do  

if a[i]>max then max:=a[i];

Writeln ('Максимальный элемент: ',max);

Writeln ('Элементы с непарными индексами: ');

for i:= 1 to 5 do  

if i mod 2 <>0 then write (a[i], ' ');

for i:= 1 to 4 do

for j:= i+1 to 5 do  

if a[i]<a[j] then  

 begin

 k:=a[i];

 a[i]:=a[j];

 a[j]:=k;

 end;

 

 writeln();

 writeln ('Массив, упорядоченный в порядке убывания: ');

for i:= 1 to 5 do  

write(a[i], ' ');

end.

Объяснение:

Answer 2

Ось оператори для виконання цих завдань в мові програмування, такі як Pascal:

pascalCopy code
program ArrayTasks;

var
  M: array[1..10] of Integer;
  i, sumOfNegatives, maxElement, countOfPositives: Integer;

begin
  { Введення масиву M }
  for i := 1 to 10 do
  begin
    Write('Введіть M[', i, ']: ');
    Readln(M[i]);
  end;

  { Завдання 1: Знайти суму лише від'ємних елементів }
  sumOfNegatives := 0;
  for i := 1 to 10 do
  begin
    if M[i] < 0 then
      sumOfNegatives := sumOfNegatives + M[i];
  end;
  Writeln('Сума від\'ємних елементів: ', sumOfNegatives);

  { Завдання 2: Знайти максимальний елемент }
  maxElement := M[1];
  for i := 2 to 10 do
  begin
    if M[i] > maxElement then
      maxElement := M[i];
  end;
  Writeln('Максимальний елемент: ', maxElement);

  { Завдання 3: Знайти кількість додатних елементів }
  countOfPositives := 0;
  for i := 1 to 10 do
  begin
    if M[i] > 0 then
      countOfPositives := countOfPositives + 1;
  end;
  Writeln('Кількість додатних елементів: ', countOfPositives);

  { Завдання 4: Елементи, які менше за 15, замінити на 5 }
  for i := 1 to 10 do
  begin
    if M[i] < 15 then
      M[i] := 5;
  end;

  { Виведення оновленого масиву M }
  Writeln('Оновлений масив M:');
  for i := 1 to 10 do
  begin
    Write(M[i], ' ');
  end;

end.

Ця програма спочатку вводить масив M, а потім виконує всі задачі, які ви описали. Результати обчислень виводяться на екрані.