1)Под читать сколько раз встречается -2 в равномерном массиве состоящая из 10 элементов

2)Составить программу нахождение арифметического элемента массива состоящая из 5 элементов

1

Ответы и объяснения

2013-03-20T17:11:01+04:00

var

mas:array[1..10] of integer;

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

i:integer;

count:integer;

sum:integer;

sr:real;

begin

count:=0;

sum:=0;

for i:=1 to 10 do

begin

readln (mas[i]);     // заполняем первый массив

if (mas[i]=-2) then count:=count+1;

end;

 

 

for i:=1 to 5 do

begin

readln (mas1[i]);

sum:=sum+mas1[i];

end;

 

sr:=sum/5;

 

writeln ('-2 встречается ', count,' раз');

writeln ('Среднее арифметическое равно', sr);

end.