var a:array [1..10] of integer;
s,i,c,b:integer;
Begin
read(c,b,n);
randomize;
for i := 1 to n do
a[i]:= random(b) -c+1;
for i:= 1 to n do
if i mod 2 = 0 then s:=s+1;
writeln(s);
End.
<span>напишу так: зефир найден 12 раз, зефир или шоколад - 15. Значит, шоколад БЕЗ зефира найден 3 раза. А ещё шоколад с зефиром найден 8 раз, то есть шоколад с зефиром и без зефира найден 8+3=11 раз</span>
Флеш-память (англ. flash memory) — разновидность полупроводниковой технологии электрически перепрограммируемой памяти (EEPROM). Это же слово используется в электронной схемотехнике для обозначения технологически законченных решений постоянных запоминающих устройств в виде микросхем на базе этой полупроводниковой технологии. В быту это словосочетание закрепилось за широким классом твердотельных устройств хранения информации.
var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.