помогите пожалуйста сделать программу в фри паскале :сначало надо найти сумму положительных\отрцательных и потом их сложить помогите
10-11 класс
|
var ch,so,sp:integer;
begin
for i:=1 to 4 do
begin
if ch>0 then sp:=s+ch
else
so:=so+ch;
end;
writeln(so+sp);
end.
как то так
Другие вопросы из категории
Читайте также
1,Найти
наименьший элемент массива (начиная с k-го) и
его порядковый номер. Поменять местами k-тый и найденный минимальный элемент.
(более подробно на фото л.р.9)
Диаметр горловины водоструйного элеватора в системах водяного отопления вычисляют по формуле d=1,55G^0,5/P^0,25 (см). Здесь G-расход теплоносителя в системе отопления после элеваторного узла, который определяется по формуле G=0,86*10^(-3)*(Q/(t1-t0), т/ч; Q-мощность отопительной установки здания, Вт, принять от 100000Вт до 300000вт с шагом 20000вт, t1-температура в падающей магистрали системы отопления, применять 105; t0-температура в обратной магистрали системы отопления, принять 70; P-расчетное давление в системе отопления для циркуляции теплоносителя, кПа, принять Р=12кПа. Определение записать в виде функции.
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)