Question

УМОЛЯЮ ВАС, ПОМОГИТЕ,, СИДИМ С РЕБЁНКОМ УЖЕ 4 ЧАС И НИЧЕГО НЕ ПОНИМАЕМ ПРОГРАММУ НАДО НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ Задача 1Дан целочисленный массив, состоящий из 5-ти элементов. Найти сумму и произведение нечетных значений элементов кратных 3.Задача 2Дан целочисленный массив, состоящий из 5-ти элементов. Найти количество тех элементов, значения которых положительны и не превосходят заданного натурального числа Х.

Answer 1

№1

var

i,s,pr : integer;

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

begin

//даем значения для суммы и произведения

s := 0;

pr := 1;

//заполняем массив с клавиатуры

for i := 1 to 5 do

readln(a[i]);

//цикл для нахождения суммы и произведения

for i := 1 to 5 do

if (a[i] mod 3 = 0) and (a[i] mod 2 <> 0) then begin

s := s + a[i];

pr := pr * a[i];

end;

//вывод результатов

writeln('Сумма:',s);

writeln('Произведения:',pr);

end.

№2

var

x,i,counter : integer;

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

begin

//даем значения для нашего счетчика и считываем X

counter := 0;

write('X=');

readln(x);

//заполняем массив с клавиатуры

for i := 1 to 5 do

readln(a[i]);

//ищем положительные элементы, которые меньше X

for i := 1 to 5 do

if (a[i] > 0) and (a[i] <x) then

counter := counter + 1;

//выводим результат

writeln('Количество чисел, который меньше X и положительны:',counter);

end.

Answer 2

Конечно, я могу помочь вам написать программу на языке Pascal для решения этих задач. Вот решение для каждой из задач:

Задача 1: Найти сумму и произведение нечетных значений элементов кратных 3.

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

  writeln('Введите 5 целых чисел в массив:');
  for i := 1 to 5 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);

    if (arr[i] mod 3 = 0) and (arr[i] mod 2 <> 0) then
    begin
      sum := sum + arr[i];
      product := product * arr[i];
    end;
  end;

  writeln('Сумма нечетных значений элементов кратных 3: ', sum);
  writeln('Произведение нечетных значений элементов кратных 3: ', product);

  readln;
end.

Задача 2: Найти количество элементов, значения которых положительны и не превосходят заданного натурального числа X.

pascalCopy code
program Task2;
var
  arr: array[1..5] of integer;
  i, X, count: integer;
begin
  count := 0;

  writeln('Введите 5 целых чисел в массив:');
  for i := 1 to 5 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  write('Введите натуральное число X: ');
  readln(X);

  for i := 1 to 5 do
  begin
    if (arr[i] > 0) and (arr[i] <= X) then
      count := count + 1;
  end;

  writeln('Количество элементов, которые положительны и не превосходят ', X, ': ', count);

  readln;
end.

Вы можете скопировать и вставить каждую из этих программ в среду разработки Pascal и выполнить их. Они решают задачи 1 и 2 в соответствии с вашими требованиями.