Question

Задачка в Паскале, помогите решить пожалуйста!! Pascal Помогите пожалуйста решить задачку через массив, я плохо понимаю массивы. Даны числа а1,...,a50. Получить сумму тех чисел данной последовательности, которые a)Кратны 5; б)нечетны и отрицательны; в)удовлетворяют условию мод |ai|< i^2 И эти все цифры должны быть в одной программе.

Answer 1

После выода данных в массив:
Sum:=0;
B:=0;
C:=0;
For i:=1 to 50 do
Begin
If a[i] mod 5=0
Then sum:=sum+a[i];
If (a[i] mod 2<>0) and (a[i]<0)
Then b:=b+a[i];
If abs(a[i])Then c:=c+a[i];
End;
Writeln(sum,' ',b,' ',c);

Последнее условие это модуль а[i] меньше квадрата i?

Answer 2

Чтобы решить данную задачу в Паскале с использованием массива, нужно сначала создать массив из 50 элементов, в котором будут храниться числа а1,...,а50.

1) Для получения суммы чисел, кратных 5, нужно пройти по всем элементам массива и проверить каждое число на кратность 5. Если число кратно 5, то добавляем его к сумме.

var
  arr: array[1..50] of Integer;
  i, sum: Integer;
begin
  sum := 0;
  for i := 1 to 50 do
  begin
    if arr[i] mod 5 = 0 then
      sum := sum + arr[i];
  end;
  writeln('Сумма чисел, кратных 5: ', sum);
end.

2) Для получения суммы нечетных и отрицательных чисел нужно также пройти по всем элементам массива и проверить каждое число на нечетность и отрицательность. Если число нечетное и отрицательное, то добавляем его к сумме.

var
  arr: array[1..50] of Integer;
  i, sum: Integer;
begin
  sum := 0;
  for i := 1 to 50 do
  begin
    if (arr[i] mod 2 <> 0) and (arr[i] < 0) then
      sum := sum + arr[i];
  end;
  writeln('Сумма нечетных и отрицательных чисел: ', sum);
end.

3) Для получения суммы чисел, удовлетворяющих условию модуля, нужно также пройти по всем элементам массива и проверить каждое число на выполнение условия модуля. Если число удовлетворяет условию, то добавляем его к сумме.

var
  arr: array[1..50] of Integer;
  i, sum: Integer;
begin
  sum := 0;
  for i := 1 to 50 do
  begin
    if abs(arr[i]) < i*i then
      sum := sum + arr[i];
  end;
  writeln('Сумма чисел, удовлетворяющих условию модуля: ', sum);
end.

Теперь, чтобы объединить все эти задачи в одной программе, можно просто объединить все эти коды в один блок программы:

var
  arr: array[1..50] of Integer;
  i, sum1, sum2, sum3: Integer;
begin
  sum1 := 0;
  sum2 := 0;
  sum3 := 0;
  
  // Здесь нужно заполнить массив arr значениями а1,...,а50
  
  for i := 1 to 50 do
  begin
    if arr[i] mod 5 = 0 then
      sum1 := sum1 + arr[i];
      
    if (arr[i] mod 2 <> 0) and (arr[i] < 0) then
      sum2 := sum2 + arr[i];
      
    if abs(arr[i]) < i*i then
      sum3 := sum3 + arr[i];
  end;
  
  writeln('Сумма чисел, кратных 5: ', sum1);
  writeln('Сумма нечетных и отрицательных чисел: ', sum2);
  writeln('Сумма чисел, удовлетворяющих условию модуля: ', sum3);
end.

Здесь важно помнить, что массив arr нужно заполнить значениями а1,...,а50 до выполнения цикла for. Это можно сделать вручную или с помощью генерации случайных чисел.