Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.
Система счисления шестеричная. Было 16 мальчиков и 20 девочек. Решение во вложении
16 бит * 1280 пикс. * 1024 пикс. = 20.971.520 бит/ 8 бит = 2621440 байт / 1024 бит = 2560 Кбайт / 1024 байт = 2,5 мегабайт
(пирожное/выпечка) = (пирожное) + (выпечка) - (пирожное&выпечка)
(выпечка) = 14200 - 9700 + 5700 = 10200
Ответ на картинке,сначала ты объявляешь начало алгоритма прграммы(в овале),после вводишь данные (параллелограмм),а далее ставишь условие(ромб),выводишь его по формуле(прямоугольник),и заканчиваешь алгоритм(овал).