Сколько раз встречается цифра 5 в целых числах от 1 до 60?

Question

Информатика: Сколько раз встречается цифра 5 в целых числах от 1 до 60?

Response21 · Accepted Answer

Program q;
   var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
   randomize;
   for i:=1 to 7 do begin;
       for k:=1 to 7 do begin;
           a[i,k]:=random(-10,10);
           if a[i,k] mod 2 = 1 then odd+=1;
       end;
   end;
   min7:=a[1,7];
   for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
   for i:=1 to 7 do sum1+=a[i,1];
   for i:=1 to 7 do avg5+=a[5,i];
   avg5/=7;
   for i:=1 to 7 do a[1,i]:=1;
   write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.

MOGZ ответил