Запросить 40 чисел подсчитать количество чисел равных 0

Program n1;
var i,k,a: integer;
begin
k:=0;
for i:=1 to 40 do begin
readln(a);
if a=0 then k:=k+1;
end;
write(k);
end.

Код доступа: 507746
У нас сьогодні письмовий урок розвитку мовлення: Контрольний доклдний письмовий переказ тексту - роздуму дискусійного характерув публіцистичному стилі.
ДЗ:
Беремо подвійні листочки і підписуємо їх на 8 рядочку:
Контрольний письмовий докладний переказ тексту - роздуму дискусійного характеру в публіцистичному стилі
учня ( учениці) 7-б класу
КЗО "НВК № 4" ДМР
ПІБ учня або учениці у родовому відмінку
Розгортаємо зошит
пишемо дату
Двадцять сьоме квітня
Чи потрібне сьогодні мистецтво ґречності?
( пишемо переказ тексту своїми словами, опрацювавши конспект уроку, текст у конспекті уроку)

Скріни робіт скидуємо на платформу до зазначеного часу, а листочки з контрольним переказом зберігаємо.
Гарного дня і плідної роботи!!!
Бажаю успіхів!!! Чекаю скріни робіт на платформу.

как-то так

Объяснение:

не имея возможности (или желания) что-либо рассчитать теоретически, мы иногда просто моделируем много раз работу некоторой системы (которая включает в себя элементы случайности) и смотрим на результат. Например, пусть есть две программы игры в шахматы. Чтобы узнать, какая сильнее, можно просто дать им поиграть друг против друга достаточно много раз и посмотреть - если они выигрывают примерно поровну, то они равны по силе, а если одна выигрывает существенно чаще (статистически значимо чаще), то она и сильнее.