Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите решить задачи!Зараннее спасибо)
1)Определить количество положительных,отрицательных элементов и нулей в массиве.
2)В массиве заменить все числа больше 10 на 1000.
3)Найти два самых маленьких числа.
4)Отсортировать вторую половину таблицы по убыванию.
1 | Автор: Anastasia95 | 2012-03-15, 01:03   |  Репутация: [ + 0 ]
1 | Автор: Anastasia95 | 2012-03-15, 01:03   |  Репутация: [ + 0 ]
1.
var
q,w,e,a,i,n:integer;
begin
read(n);
for i:=1 to n do begin
read(a);
if a>0 then q:=q+1;
if a<0 then w:=w+1;
if a=0 then e:=e+1;end;
writeln(q,w,e);
end.
2.
var
a:array[1..100]of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>10 then a[i]:=1000;end;
for i:=1 to n do
write(a[i],' ');
end.

3.
var
a:array[1..100]of integer;
i,q,w,n:integer;
begin
q:=high(q);
w:=high(w);
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]<q then q:=a[i];end;
for i:=1 to n do
if (a[i]<w)and(a[i]<>q) then w:=a[i];
writeln(q,' ',w);
end.

4.
Не понял задания.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-15, 01:14   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: