Question

Одномерный массив заполнить случайными числами. все эелементы, имеющие значения от5 до 10, заменить числом 100 (оформите в виде процедуры или функции). сколько замен было сделано? результат вывести в файл

Answer 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 (ar[i]>5) and (ar[i]<10) then
 begin;
  ar[i]:=100;
   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.