Question

Паскаль Написать программы: дан массив 1). найти количество элементов, которые кратны 5; 2). сумму элементов, которые стоят на четных местах.

Answer 1

Ответ:

Объяснение:

var sum2,kol5,n,m:integer;

massiv:array[1..1000] of integer;

begin

readln(n); kol5:=0; sum2:=0;

for m:=1 to n do readln(massiv[m]);

for m:=1 to n do if(massiv[m] mod 5=0) then kol5:=kol5+1;

for m:=1 to n do if(m mod 2=0) then sum2:=sum2+massiv[m];

writeln(kol5,' ',sum2);

readln; end.

Answer 2

Конечно! Вот пример программы на языке Паскаль для решения ваших задач:

1. Найти количество элементов, которые кратны 5:

pascalCopy code
program CountMultiplesOfFive;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i, count: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Генерация числа от 0 до 99

  // Подсчет количества элементов, кратных 5
  count := 0;
  for i := 1 to N do
  begin
    if arr[i] mod 5 = 0 then
      Inc(count);
  end;

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

2. Найти сумму элементов, которые стоят на четных местах:

pascalCopy code
program SumEvenIndexedElements;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i, sum: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Генерация числа от 0 до 99

  // Вычисление суммы элементов на четных местах
  sum := 0;
  for i := 2 to N step 2 do
  begin
    sum := sum + arr[i];
  end;

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

Обратите внимание, что в обоих случаях размер массива задан константой N. Вы можете изменить ее значение в соответствии с вашими потребностями. Также здесь используется генерация случайных чисел для заполнения массива, но вы можете изменить это на свой код для заполнения массива, если требуется.