Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
const
n = 10; //количество элементов массива
var
a: array [1..n] of real;
i: integer;
begin
for i: = 1 to n do
writeln('введите ', i, ' элемент массива');
readln(a[i]); //вводим очередной элемент массива
end;
write('исходный массив: ');
write(a[i], ' '); //выводим исходный массив
writeln; //перевод на новую строку
write('полученный массив: ');
a[i]: = a[i] * a[n]; //элемент массива умножаем на последний элемент
write(a[i], ' '); //выводим полученный элемент массива
end.
uses crt; var
v,r,h: real; begin write('r='); readln(r); write('h='); readln(h); v: =pi*sqr(r)*h; write('v=',v); end.
мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.
Популярные вопросы