Составить программу(Паскаль) Сформировать массив (t кол-во элементов 20) случайных...

Question

Составить программу(Паскаль) Сформировать массив (t кол-во элементов 20) случайных чисел,выбранных на интервале от -10 до +10.Вывести кол-во нулевых элементов,сумму элементов кратных 3 и среднее арифметическое всех элементов массива.

Answer 1

var t:array[0..19] of byte;

      i,k,l,s:integer;

begin      

 

k:=0;

l:=0;

s:=0;

for i:=0 to 19 do begin

t[i]:=random(21)-10;

write(t[i],'   ');

if t[i]=0 then k:=k+1;

if t[i] mod 3=0 then s:=s+t[i];

l:=l+t[i];

end;

 

write('колво 0  ',k);

write('сумма кратных 3 ',s);

write('средне арефм ',l/20); 

    end.