ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от WinTREI

спасибо конечно, но хотелось бы через процедуры и функции, там сложнее ><

Ничего сложного там нет

Цитата:

program vtoraia;
const n=10;
var x,t:integer; a,b:array [1..n] of integer;
begin
t:=1;
for x:=1 to n do
a[x]:=random (100);
for x:=1 to n do
if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;
for x:=1 to t do
writeln (b[x],' ');
readln
end.

Вот по его примеру составил функцию:

Код:

program MasSiv;
Function Massiv(a:array of integer;n:integer):string;{Это и есть наша функция:)}
var x,t:integer;
b:array [1..500] of integer;
begin
t:=1;
 for x:=1 to n do
  a[x]:=random (20);
 for x:=1 to n do
   if a[x]<>0 then
   begin
    b[t]:=a[x];
    inc(t);{тоже самое что и t:=t+1}
   end;
 for x:=1 to n do
  write (a[x],'  ');{Выводим исходный массив(для сравнения)} 
  Writeln;
  Writeln;
 for x:=1 to t-1 do
  write (b[x],'  ');{Выводим полученный массив}
  readln;
end;
const n=20;{n элементов в массиве}
var
a:array [1..n] of integer;
begin
  Massiv(a,n);{Используем нашу функцию:)}
end.