Вот код: print('ИНГРЕДИЕНТЫ для крепкого вина на СОБРАННОе п/я сырье')
fruit=12.1 #собрано п/я сырья,кг
print(round(fruit,2),'собрано п/я сырья')
juice=fruit*0.6 #выход чистого сока из п/я сырья
print(round(juice,2),'-будет сока п/я сырья,л')
sugarkg=juice*0.27
print(round(sugarkg,2),'- нужно сахара, кг')
sugarl=sugarkg*0.62
print(round(sugarl,2),'- сахар, л')
wine_wort=sugarl+juice
print(round(wine_wort,2),'- будет сусла, л')
box=wine_wort/0.85 #нужна емкость,л
print(round(box,0),'-нужна емкость,л')
здесь print используется 7 раз. А как использовать print один раз?
const
N = 10;
var
a : array[1..N] of integer;
begin
randomize;
for I : byte := 1 to N do
begin
a[i] := random(1, 5);
write(a[i],' ');
end;
for I : byte := 2 to N do
if a[1] = a[i] then writeln(i);
end.
Задание #2.
const
K = 2;
N = 10;
var
a : array[1..N] of integer;
begin
for I : byte := 1 to N do
begin
readln(a[i]);
if a[i] mod k = 0 then write(a[i],' ');
end;
end.
Задание #3.
const
Z = 2;
N = 10;
var
a : array[1..N] of integer;
count : word;
begin
count := 0;
for I : byte := 1 to N do
begin
readln(a[i]);
if a[i] > Z then
begin
a[i] := Z;
Inc(count);
end;
end;
for I : byte := 1 to N do
write(a[i],' ');
writeln;
writeln(count);
end.
Стоит на на всякий случай пояснить, что N, K, Z - константы, их можно легко поменять, так гораздо удобнее работать с программой, если нужно что-то поменять. Процедура Inc( ) - прибавляет единицу, это короче чем писать Count := Count + 1; В первом задание в цикле, который ищет значение элементов массива, которые равны первому элементу массива, я начал со второго элемента. потому что очевидно, что первый элемент будет равен самому себе. Надеюсь, вам написанные мной программы, она не сложные, вам стоит внимательно их просмотреть и, вы сможете без труда их понять самостоятельно, если пожелаете, разумеется.