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.