Question

помогите срочно с информатикой (по паскалю) ДАЮ 70 БАЛЛОВ
1. Відомо масив А(1..5), що містить цілі додатні та від’ємні числа. Обчислити кількість додатних елементів в масиві.
2. Відомо масив С(1..10) цілих чисел. Обчислити добуток парних елементів масиву.

Answer 1

Ответ:

var

 a:array[1..5]of integer = (-21,2,-3,14,5);

 b:array[1..10]of integer = (3,5,2,3,6,5,2,7,4,3);

 i,P:integer;

begin

 p := 0;

 for i:=1 to 5 do

   if a[i]>0 then inc(P);

 writeln('В массиве a положительных чисел = ', p);

 

 p:=1;

 i:=2;

 while i < 11 do begin

   p:=p*b[i];

   inc(i, 2);

 end;  

 writeln('Произведение чётных элементов массива b = ', p);

end.