Помощь - Поиск - Пользователи - Календарь
Полная версия: Подпрограмма-функция! Кому интересно.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
johnik9
Написать подпрограмму-функцию, которая считает сумму чисел, которые нечетны и отрицательны. Чисел 10, они вводятся по одному.

Написать модуль содержащий две процедуры:
1) вводится текст, из которого удаляются все B непосредственно перед которыми стоит C;
2) вводится 10 чисел, найти из них max и min.
FreeMan
Код

function sum: longint;
var i:byte;
chislo: integer;
summa:longint;
begin
summa:=0;
for i:=1 to 10 do begin

read (chislo);

if (chislo<0) and (chislo mod 2 = 1) then inc(summa,chislo);

end;
sum:=summa;
end;

Не уверен, так как не проверял. Модуль напишу позже (если никто не напишет).
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.