Алексей - рыбак, Егор - фермер, Виктор - ветеринар, а Михаил пчеловод.
Живут они так: МЕАВ
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
Println('Неудовлетворительных', a.Count(p -> p < 5));
if a.Any(p -> p = 10) then
Print('YES')
else
Print('NO')
end.
Var a:array[1..3,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin a[i,j]:=random(20)-10; write(a[i,j]:4);end;writeln;end;
for j:=1 to 4 do begin
s:=0;
for i:=1 to 3 do s:=s+a[i,j]; writeln('cумма ',j, ' столбца=',s);end;
<span>end.</span>
4) DVD+RW
На CD-RW в принципе тоже можно, но перед этим надо полностью стереть все что там хранится и записать это заново. А первые два варианта - диски однократной записи.