Question

Паскаль Дан массив А(50) целых чисел. Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5.

Answer 1

Программа может выглядеть так:

uses Crt;
const n=50;
type Vec=array [1..n] of integer;
var A: Vec;
    i, Sum, Col: integer;
begin
ClrScr;
Randomize;
Sum:=0;
Col:=0;
 for i:=1 to n do
     begin
       A[i]:=10+random(40);
       Write(A[i]: 4);
       if (i mod 10 =0 ) then WriteLn;
       if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5 ) then
         begin
              Sum:=Sum+A[i];
              Col:=Col+1;
         end;
     end;
 WriteLn;
 WriteLn (' Sum = ', Sum);
 WriteLn (' Col = ', Col);
ReadLn;
end.

Answer 2

Для решения данной задачи на Паскале, можно использовать следующий код:

pascalCopy code
program SumAndCount;
const
  N = 50;
var
  A: array[1..N] of integer;
  i, count, sum: integer;
begin
  count := 0;
  sum := 0;

  { Ввод элементов массива }
  writeln('Введите элементы массива A:');
  for i := 1 to N do
  begin
    write('A[', i, '] = ');
    readln(A[i]);
  end;

  { Подсчет суммы и количества элементов }
  for i := 1 to N do
  begin
    if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5) then
    begin
      sum := sum + A[i];
      count := count + 1;
    end;
  end;

  { Вывод результатов }
  writeln('Сумма элементов, делящихся на 7 с остатком 1, 2 или 5: ', sum);
  writeln('Количество элементов, делящихся на 7 с остатком 1, 2 или 5: ', count);

  readln;
end.

В этом примере мы используем массив A размером 50, в котором хранятся целые числа. Сначала мы вводим элементы массива с помощью цикла for. Затем, с помощью еще одного цикла for, мы проходим по всем элементам массива и проверяем, делятся ли они на 7 с остатком 1, 2 или 5. Если условие выполняется, то увеличиваем счетчик count и добавляем значение элемента к сумме sum. По окончании цикла выводим результаты на экран.

Пожалуйста, обратите внимание, что Паскаль - это устаревший язык программирования, и рекомендуется использовать более современные языки, такие как Python или Java.