Пробуй поменять
#include<windows.h>
на
#define _WIN32_WINNT 0x0500
#include<windows.h>
9 * 1 = 1 (это 1я загрузка сковороды)
1*1 = 1 (2я загрузка сковороды)
1+1 = 2 (требуется две загрузки сковороды)
2*2 =4 (2 загрузки сковороды умножили на два переворота получили 4 минуты)
2+2 = 4 минут. (уходит на 10 сырников)
PS: можно разделить 10 сырников по 5 шт на одну загрузку сковороды.
Const n=10;
var a,s,k,i:integer;
begin
Randomize;
s:=0; k:=0;
writeln('Числа:');
for i:=1 to n do
begin
a:=random(201)-100;
write(a:5);
if (a>0)and(a mod 2 = 1) then begin s:=s+a; k:=k+1; end;
end;
writeln;
if k>0
then writeln('Среднее арифметическое положительных нечетных чисел = ',s/k:5:2)
else writeln('Среди чисел нет положительных нечетных');
end.
Пример:
Числа:
11 -60 13 -62 15 -92 -71 87 -15 12
Среднее арифметическое положительных нечетных чисел = 31.50