Question

Pascal ABC с входными, выходными, промежуточными данными, алгоритмом и кратким пояснением действий.

Answer 1

Pascal ABC.

var   
   a,i,sum,k:integer;
begin   
   for i:=1 to 20 do begin         
      a:=random(1000);         
      write(a,' ');             // вывод чисел         
      if (a mod 3 = 0) or (a mod 5 = 0) then         
      begin             
         sum:=sum+a;  // складируем сумму            
         inc(k);   // считаем количество      
      end;     
   end;     
   writeln;     
   writeln(sum,' ', k,' ', sum/k);    //вывод результата
end.