var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(81)+20;
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k2:=k2+1
else k1:=k1+1;
writeln('Количество чётных элементов: ',k2);
writeln('Количество не чётных элементов: ',k1)
end.
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
Ответ:
141
Объяснение:
15 МБ это 15360 Кбайт
128 байт это 0.125 Кбайт
2.5 МБ это 2560 Кбайт
15360 + 0.125 + 2560 = 17920.125
17902/128 = 140.000977
т. к. есть остаток следовательно нужен 141 кластер
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1