Составить программу(Паскаль) Сформировать массив (t кол-во элементов 20) случайных чисел,выбранных на интервале от -10 до +10.Вывести кол-во нулевых элементов,сумму элементов кратных 3 и среднее арифметическое всех элементов массива.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
