Program mass;
uses
crt;
var
a: array [1..10] of integer;
i: integer;
begin
randomize;
writeln('Исходдный массив: ');
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(' ', a[i], ' ');
end;
Writeln;
writeln('После замены отрицательных чисел на 0:');
for i := 1 to 10 do
begin
if a[i] < 0 then a[i] := 0;
write(' ', a[i], ' ');
end;
writeln;
end.
ща переделаю не увидел что ті изменила задание
16,7 Мб ≈ 0,016 Гб
64-1,27-1,12-0,016=61,594 Гб - свободно
61,594/64 ≈ 0,96 % - свободно
(1,27-1,12-0,016)/64 ≈ 4 % - занято
Var
A.b:integer;
Begin
Readln(a.b);
If a+b>100 then
Writeln(a-20,' ',b-20)
Else
Writeln(a,' ',b)
End.
Это изи
Задание напиши полностью, как понимать натуральные числа N и M? Может множество чисел? Они должны рандомно задаваться или они уже даны?
Что бы проверить кратность числа:
if (N % 4 == 0)
{
cout>>"год высокосный! ";
} else cout>>"год не высокосный";
В случае если у тебя есть множество чисел N и M создаешь массив и перед проверкой условия пихаешь цикл по этим массивам. А вообще напиши полностью задание.
1) 3) 4)
Лиса любит розовые,но не любит зелёные=>она выберет розовые.
Волк любит синие,но не любит зелёные=>он выберет зелёные
Ягнёнок любит и синие и розовые,но т.к. розовые заняты=>он возьмёт синие