|
Решение задачи на Pascal
|
|
1.Вычислить произведение чисел, принадлежащих промежутку (A, B] и подсчи-тать количество отрицательных чисел, стоящих на местах, кратных 3.
2.Найти максимальное число и вместо него записать значение N+2.
|
|
|
|
var
a:array[1..100]of integer;
i,s,a,b:integer;
begin
s:=0;
read(a);read(b);
for i:=a to b do
s:=s*i;
writeln(s);
s:=0;
for i:=a to b do
if i<0 then
if abs(i) mod 3=0 then s:=s+1;
writeln(s);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a:array[1..100]of integer;
i,p,n,m:integer;
begin
p:=low(p);
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>p then begin p:=a[i];m:=i;end;end;
a[m]:=n+2;
for i:=1 to n do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Спасибо большое!!!Выручили!!
|
|
|
|
