Срочно нужна помощь! Одномерный массив заполнить случайными числами. Все элементы, модуль

Безотлагательно нужна помощь! Одномерный массив заполнить случайными числами. Все элементы, модуль которых меньше 5, увеличить в 2 раза(оформить в виде процедуры либо функции).Сколько замен было изготовлено? Результат вывести в файл.
паскаль!

необходимо только поправить...

Задать свой вопрос
Ройтберг Гена
Прости, но я напишу заново. Массив тоже вывести в файл?
Слава Сивоченко
да
1 ответ
Type
 ta=array[1..10] of integer;

var f:text;
s:string;
i,k:integer;
ar:ta;

procedure change(var ar:ta; i:integer; var k:integer);
begin;
if abs(ar[i])lt;5 then
 begin;
  ar[i]:=ar[i]*2;
   inc(k);
 end;
end;

begin;
randomize;
k:=0;
writeln('First array:');
for i:=1 to 10 do
 begin;
  ar[i]:=random(30);
  write(ar[i]:4);
  change(ar,i,k);
 end;
assign(f,'text.txt');
 rewrite(f);
  writeln(f,'Final array:');
   for i:=1 to 10 do
    write(f,ar[i]:4);
     writeln(f,' ');
      writeln(f,'Changes:',k);
 close(f);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт