Question

СРОЧНО ПЖ ИНФОРМАТИКА 100 БАЛЛОООВ
Задание 1

Найти сумму положительных и количество отрицательных элементов в одномерном массиве: 0; 15; 12; –9; –8; 58; 45; 36; –85; 58; 36; –45; 2; 3; 25; –9.



Задание 2

В одномерном массиве рассчитать произведение элементов, которые не равняются 0.

В отчет включить тексты программ, реакции ЭВМ.

Answer 1

Ответ:

program z1;

const a: array [1..16] of integer = (0,15,12,-9,-8,58,45,36,-85,58,36,-45,2,3,25,-9);

var i, s, k: integer;

begin

s:=0;

write ('Массив: ');

for i:=1 to 16 do

begin

write (a[i],' ');

if a[i]>0 then s:=s+a[i];

if a[i]<0 then k:=k+1

end;

writeln;

writeln ('Сумма положительных элементов ',s);

write ('Количество отрицательных элементов ',k)

end.

program z2;

var a:array [1..10] of integer;

i,p,k:integer;

begin

k:=0;

p:=1;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(7)-3;

write(a[i]:4);

if a[i] <> 0 then

begin

p:=p*a[i];

k:=k+1

end

end;

writeln;

if k<>0 then write ('Произведение элементов, которые не равняются 0, равно ',p)

else write ('Произведение элементов, которые не равняются 0, равно 0')

end.