1)Даны 15 чисел. Найти разницу между максимальным и минимальным числом. 2)Найти количество нечетных чисел среди первых 100.
1)Даны 15 чисел. Найти разницу между максимальным и минимальным числом.
2)Найти количество нечетных чисел среди первых 100.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d,i,m:integer;
1) begin
read(a);
c:=a;
b:=a;
for i:=2 to 15 do
begin
read(a);
if a>c then c:=a;
if a0 then c:=c+1;
write(c);
end.
Не нашли ответ?
Похожие вопросы