Напишите программу, которая будет выводить на монитор сколько выпало орлов и решек во время подбрасывания монет 1000 раз

from random import randint

n=1000

x=0

r=0

o=0

for i in range(n):

x=randint(0,1)

if x==0:

r=r+1

else:

o=o+1

print(r," решек и ",o," орлов")

Відповідь:

Адресация — осуществление ссылки (обращение) к устройству или элементу данных по его адресу; установление соответствия между множеством однотипных объектов и множеством их адресов; метод идентификации местоположения объекта. Простая (англ. flat addressing) — указание объекта с идентификатора или числа, не имеющего внутренней структуры. Расширенная (англ. extended addressing) — доступ к запоминающему устройству с адресным пространством, бо́льшим диапазоном адресов, предусмотренного форматом

Пояснення:

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение: