Автор: johnik9 3.06.2004 14:15
Написать подпрограмму-функцию, которая считает сумму чисел, которые нечетны и отрицательны. Чисел 10, они вводятся по одному.
Написать модуль содержащий две процедуры:
1) вводится текст, из которого удаляются все B непосредственно перед которыми стоит C;
2) вводится 10 чисел, найти из них max и min.
Автор: FreeMan 3.06.2004 14:25
Код
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;
Не уверен, так как не проверял. Модуль напишу позже (если никто не напишет).