Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program ex;
- const
- m = 100000000;
- var
- i,min,max,n:Integer;
- a,b,c,d,f,h,e,s: array[1..m] of Longint;
- begin
- writeln('10 элементов массива');
- randomize;
- for i := 1 to m do
- begin
- a[i]:=random(10);
- b[i]:=a[i];
- c[i]:=a[i];
- d[i]:=a[i];
- // f[i]:=a[i];
- // write(a[i],'|');
- end;
- // writeln();writeln();
- // n:=1;
- // write('Четное:');
- // for i := 1 to m do
- // begin
- // if a[i] mod 2 = 0
- // then
- // begin
- // chet[n]:=a[i];
- // n:=n+1;
- // write(a[i],'|')
- // end;
- // end;
- writeln('финиш');
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement