Var
a: array [1..10] of integer;
i,b : integer;
begin
randomize;
writeln('b=');
readln(b);
for i:=1 to 10 do
a[i]:=Random(10);
for i:=1 to 10 do
if A[i]= b then
writeln('есть',A[i])
else
writeln('нет такого ')
end.
Для решения этой задачи нужно знать:
1) Температуру теплого воздуха в шаре
2) Температуру холодного воздуха на улице
3) Объем и вес шара, то есть бумаги и теплого воздуха
4) Самое главное - формулы, по которым все это рассчитывается.
Мне что-то кажется, что лучше всех всё это знаешь ты сам, потому что в классе наверняка решали подобную задачу.
Так что вывод такой: Не надейся на помощь, а кури учебник и лекции.
Если совсем не получается, попроси отличника. Пользы будет больше.
Немного исправил программу:
program Alex1;
var
a: array[1..10] of integer;
max, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
writeln('Исходный массив');
for i := 1 to 10 do
write(a[i], ' ');
max := a[1];
for i := 2 to 10 do
if a[i] > max then max := a[i];
for i := 1 to 10 do
if a[i] < 0 then a[i] := max;
writeln;
writeln('Новый массив');
for i := 1 to 10 do
write(a[i], ' ');
<span>end.</span>