20 БАЛЛОВ
Составить программу, выводящую Да или Нет. Шоколадка стоит Х рублей. Хватит ли Y рублей для покупки двух шоколадок?

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥