Сформировать 3 массива одномерных со случайными значениями от 0 до 9

Помогите пожалуйста.
Задача в Паскаль:
Сформировать 3 массива одномерных со случайными значениями от 0 до 9:
1. Массив целых чисел, 37 элементов.
2. Массив чисел с плавающей запятой 25 элементов
3. Массив чисел с фиксированной запятой, 11 элементов.
Найти четные и нечётные элементы в каждом массиве. Сохранить в отдельных массивах порядковые номера под которыми находились четные и нечётные элементы в исходных массивах. Подсчитать количество и сумму значении в каждом массиве чётных и нечетных элементов. Вывести на экран исходные и расчетные данные.

вот что я уже сделал. подредактируйте.

Вложения

1.txt (3.6 Кб, 13 просмотров)

0

uses crt;
type VectorInt = array [1..100] of {real}integer;
var b, a, k, s, z: VectorInt;
n,c,d, f,g,h, p,t,j, m,r,v, u,q,y: integer;


procedure RNDVectorInt(var arr: VectorInt; l,c,d: Integer);
var i: integer;
begin
Randomize;
n:=l;
for i:=1 to n do
arr[i]:=c+trunc((d-c)*Random);
end;

procedure OutVectorInt(var arr: VectorInt; var l: Integer; Mess: String);
var i: integer;
begin
writeln('n=',l:2);
writeln;
writeln(Mess);
for i:=1 to l do write(arr[i]:4{:0});
writeln;
end;

procedure RNDVectorInt1(var arr: VectorInt; l1,g,h: Integer);
var i: integer;
begin
Randomize;
f:=l1;
for i:=1 to f do
arr[i]:=g+trunc((h-g)*Random);
end;

procedure OutVectorInt1(var arr: VectorInt; var l1: Integer; Mess: String);
var i: integer;
begin
writeln('f=',l1:2); writeln;
writeln(Mess);
for i:=1 to l1 do write(arr[i]:4{:2,' '});
writeln;
end;

procedure RNDVectorInt2(var arr: VectorInt; l2,t,j: Integer);
var i: integer;
begin
Randomize;
p:=l2;
for i:=1 to p do
arr[i]:=t+trunc((j-t)*Random);
end;

procedure OutVectorInt2(var arr: VectorInt; var l2: Integer; Mess: String);
var i: integer;
begin
writeln('p=',l2:2); writeln;
writeln(Mess);
for i:=1 to l2 do write(arr[i]:4);
writeln;
end;


Procedure perepis(var arr, arr1, arr2, arr3: VectorInt; var l,l1,l2,l3: Integer);
var i,ind: integer;
begin
{Ind:=1;}
l3:=0;
For i:=1 to l do
If arr[i] mod 2=0 then
if arr[i]<>0 then
begin
l3:=l3+1;
arr3[l3]:=arr[i]
end;
For i:=1 to l1 do
If arr[i] mod 2=0 then
if arr[i]<>0 then
begin
l3:=l3+1;
arr3[l3]:=arr[i]
end;
For i:=1 to l2 do
If arr[i] mod 2=0 then
if arr[i]<>0 then
begin
l3:=l3+1;
arr3[l3]:=arr[i]
end;
end;

Procedure perepis1(var arr, arr1, arr2, arr3: VectorInt; var l,l1,l2,l4: Integer);
var i: Integer;
begin
l4:=0;
For i:=1 to l do
If arr[i] mod 2<>0 then
if arr[i]<>0 then
begin
l4:=l4+1;
arr3[l4]:=arr[i]
end;
For i:=1 to l1 do
If arr[i] mod 2<>0 then
if arr[i]<>0 then
begin
l4:=l4+1;
arr3[l4]:=arr[i]
end;
For i:=1 to l4 do
If arr[i] mod 2<>0 then
if arr[i]<>0 then
begin
l4:=l4+1;
arr3[l4]:=arr[i]
end;
end;

{vivod summa elementov massiva}
function SumVectorInt(var arr: VectorInt; var l:Integer):LongInt;
Var i: Integer;
s:LongInt;
begin
s:=0;
for i:=1 to l do s:=s+arr[i];
SumVectorInt:=s;
end;

begin
clrscr;
RNDVectorInt(b,37,0,9);
OutVectorInt(b,n,'Massiv A:');
writeln;
RNDVectorInt1(a,25,0,9);
OutVectorInt1(a,f,'Massiv B:');
writeln;
RNDVectorInt2(k,11,0,9);
OutVectorInt2(k,p,'Massiv C:');
writeln;
{clrscr;}
perepis(b,a,k,s,n,f,p,m);
OutVectorInt(s,m,'massiv S');
writeln('summa elementov massiva=',SumVectorInt(s,m):6);
writeln;
perepis1(b,a,k,z,n,f,p,u);
OutVectorInt(z,u,'massiv T');
writeln('summa elementov massiva=',SumVectorInt(z,u):6);
writeln;
readln;
end.


вот текст программы..помогите пожалуйста.подправьте её...

0