Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Процедуры и функции
Может кто знает как переделать под дельфи?
Program proc;
const
n=15;
type
mas=array[0..n-1] of Integer;
procedure ra(var x:mas);
var
ind:integer;
begin
for ind:=low(x) to high(x) do
x[ind]:=random(50)-25;
end;
procedure printmas(const x:mas);
var
ind:integer;
begin
for ind:=low(x) to high(x) do
write(x[ind]:4);
writeln;
end;
procedure ex(var x:mas; var ch:integer);
var
ind:integer;
begin
ch:=0;
for ind:=low(x) to high(x) do
if x[ind]<0 then
x[ind]:=-x[ind];
inc(ch);
end;
var
x:mas;
ch:integer;
begin
randomize;
Ra(x);
writeln('Исходный массив');
printmas(x);
ex(x,ch);
writeln('Получившийся массив',ch);
printmas(x);
readln;
end.

p.s
задание
2) Заменить отрицательные элементы линейного массива их модулями, не пользуясь стандартной функцией вычисления модуля.
1 | Автор: enable23 | 2011-05-31, 10:03   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: