Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
Так как для хранения файлов отводится некоторое количество кластеров (количество кластеров определяется исходя из размера файла), то для хранения файла размером 1000 байт будет отведен один кластер, т.е. 4 килобайта.
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Открываете Компьютер и там должно Дисковод DVD-RW (E:)
На него нажимаем, и там будет вся информация которая есть в диске.