Question

Помогите срочно с информатикой (по паскалю) ДАЮ 70 БАЛЛОВ 1. Відомо масив А(1..5), що містить цілі додатні та від’ємні числа. Обчислити кількість додатних елементів в масиві. 2. Відомо масив С(1..10) цілих чисел. Обчислити добуток парних елементів масиву.

Answer 1

Ответ:

var

 a:array[1..5]of integer = (-21,2,-3,14,5);

 b:array[1..10]of integer = (3,5,2,3,6,5,2,7,4,3);

 i,P:integer;

begin

 p := 0;

 for i:=1 to 5 do

   if a[i]>0 then inc(P);

 writeln('В массиве a положительных чисел = ', p);

 

 p:=1;

 i:=2;

 while i < 11 do begin

   p:=p*b[i];

   inc(i, 2);

 end;  

 writeln('Произведение чётных элементов массива b = ', p);

end.

Answer 2

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

var
  A: array[1..5] of Integer;
  i, count: Integer;
begin
  // Заполняем массив A значениями
  A[1] := 2;
  A[2] := -5;
  A[3] := 6;
  A[4] := -1;
  A[5] := 3;

// Инициализируем счетчик нулем
  count := 0;

// Проходим по всем элементам массива A
  for i := 1 to 5 do
  begin
    // Если элемент больше нуля, увеличиваем счетчик на 1
    if A[i] > 0 then
      count := count + 1;
  end;

// Выводим результат
  Writeln('Количество положительных элементов в массиве: ', count);
end.

Результат выполнения программы будет: "Количество положительных элементов в массиве: 3".

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

var
  C: array[1..10] of Integer;
  i, product: Integer;
begin
  // Заполняем массив C значениями
  C[1] := 2;
  C[2] := 5;
  C[3] := 6;
  C[4] := 3;
  C[5] := 8;
  C[6] := 4;
  C[7] := 9;
  C[8] := 1;
  C[9] := 7;
  C[10] := 10;

// Инициализируем переменную-произведение единицей
  product := 1;

// Проходим по всем элементам массива C
  for i := 1 to 10 do
  begin
    // Если элемент делится на 2 без остатка, умножаем его на произведение
    if C[i] mod 2 = 0 then
      product := product * C[i];
  end;

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

Результат выполнения программы будет: "Произведение четных элементов в массиве: 3840".

Надеюсь, эти примеры помогут вам в решении ваших задач по информатике. Удачи!