помогите срочно с информатикой (по паскалю) ДАЮ 70 БАЛЛОВ
1. Відомо масив А(1..5), що містить цілі додатні та від’ємні числа. Обчислити кількість додатних елементів в масиві.
2. Відомо масив С(1..10) цілих чисел. Обчислити добуток парних елементів масиву.
1. Відомо масив А(1..5), що містить цілі додатні та від’ємні числа. Обчислити кількість додатних елементів в масиві.
2. Відомо масив С(1..10) цілих чисел. Обчислити добуток парних елементів масиву.
More Questions From This User See All
Answers & Comments
Ответ:
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.