Question

Ребят!!срочно помогите!! 1.Массив из 20 элементов Найти сумму элементов,которые делятся на 3 и на 6. 2.С помощью цикла while найти кол-во нечетных элементов от А до В(А и В вводит пользователь)это все в паскале

Answer 1

Ответ:

pascal

Объяснение:

1)

var i, s: integer;

   a: array[1..20] of integer;

begin

 for i := 1 to 20 do begin

   write('Введите a[', i,'] = '); readln(a[i]);

   if (a[i] mod 3 = 0) and (a[i] mod 6 = 0) then s := s + a[i];

 end;

 writeln('Сумма элементов,которые делятся на 3 и на 6 равна ', s);

end.

2)

var a, b, i: integer;

begin

 write('Введите начало интервала A = '); readln(a);

 write('Введите конец интервала B = '); readln(b);

 while a <= b do

 begin

   if a mod 2 = 0 then i := i + 1;

   a:= a + 1;

 end;

 writeln('Сумма нечетных элементов равна ', i);

end.

Answer 2

Конечно, вот примеры программ на языке Pascal для выполнения ваших задач:

1. Найти сумму элементов массива из 20 элементов, которые делятся на 3 и на 6:

pascalCopy code
program SumDivisibleBy3And6;
var
  arr: array [1..20] of integer;
  i, sum: integer;
begin
  sum := 0;

  // Заполним массив случайными числами для примера
  for i := 1 to 20 do
    arr[i] := Random(100); // Здесь можно заменить на ввод элементов с клавиатуры

  for i := 1 to 20 do
  begin
    if (arr[i] mod 3 = 0) and (arr[i] mod 6 = 0) then
      sum := sum + arr[i];
  end;

  writeln('Сумма элементов, которые делятся на 3 и на 6: ', sum);
end.

2. Найти количество нечетных чисел от A до B с использованием цикла while:

pascalCopy code
program CountOddNumbers;
var
  A, B, count: integer;
begin
  writeln('Введите значение A: ');
  readln(A);

  writeln('Введите значение B: ');
  readln(B);

  count := 0;

  while A <= B do
  begin
    if A mod 2 <> 0 then
      count := count + 1;
    A := A + 1;
  end;

  writeln('Количество нечетных чисел от A до B: ', count);
end.

Обратите внимание, что в коде выше мы предполагаем, что пользователь вводит значения A и B. Вы можете адаптировать код под ваши конкретные потребности.