Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
В том что 100 - это тип данных integer (целое число), а
100.0 - это тип данных Real (дробные)
Ответ:ты решил? мне очень соочно надо. Хотя бы слово, которое получлось. я сижу на этой олимпиаде и тулб
Объяснение:
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
1)отливаем 8 литров в 8 литровый, тогда в 12 литровом останется4
2) из 8 литрового переливаем в 5 литровый 5 литров, тогда в 8 литровом останется 3
3)ИЗ 5 ЛИТРОВОГО ОБРАТНО 5 ЛИТРОВ В 12 ЛИТРОВЫЙ
ТАМ СТАНОВИТСЯ 9 ЛИТРОВ
4)ИЗ 8 ЛИТРОВОГО ПЕРЕЛИВАЕМ 3 ЛИТРА В 5 ЛИТРОВЫЙ
5)НАЛИВАЕМ ИЗ 12 ЛИТРОВОГО 8 ЛИТРОВ В 8 ЛИТРОВЫЙ
<span>6)ТЕПЕРЬ ИЗ 8 ЛИТРОВОГО ДОЛИВАЕМ В 5 ЛИТРОВЫЙ 2 ЛИТРА(ДО ВЕРХА), ТОГДА В 8 ЛИТРОВОМ ОСТАЕТСЯ 6 ЛИТРОВ</span>