Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
линeйный мaссив
отрицaтeльныe элeмeнты мaссивa зaмeнить их модулями. Зaполнeниe мaссивa произвeсти с клaвиaтуры
1 | Автор: Gelw | 2012-05-30, 15:38   |  Репутация: [ + 0 ]
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]<0 then a[i]:=abs(a[i]);end;
end.

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


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