Составить программу(паскаль) сформировать массив (t кол-во элементов 20) случайных чисел,выбранных на интервале от -10 до +10.вывести кол-во нулевых элементов,сумму элементов кратных 3 и среднее арифметическое всех элементов массива.
var steps := 12; // За кол-во ходов var Xend := 7; // В точку с координатой X var Yend := 3; // ... и Y
var vars := 0; procedure Find(step, X, Y : Integer);
begin if step = 0 then vars += (X = Xend) and (Y = Yend) ? 1 : 0 else begin Find(step - 1, X + 1, Y ); Find(step - 1, X - 1, Y ); Find(step - 1, X , Y + 1); Find(step - 1, X , Y - 1); end; end; begin Find(steps, 0, 0); Print(vars); end.
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.