Description
We want to play with Pascal (Algol family) a little.
1. Sum array (array -> num)
2. Fill array (num -> array)
3. Equal array (array, array -> boolean)
4. Multiply elems (array, array -> array)
5. Reverse array (array -> array)
Unformatted Attachment Preview
Purchase answer to see full attachment
Explanation & Answer
Hey, here!Programs running... and
Program fill_Array ( input, output );
type
intArray = array [1..5] of integer;
var
i, sum : integer;
numbers : IntArray;
begin
sum := 0;
for i := 1 to 5 do
readln ( numbers[i] );
readln;
for i := 1 to 5 do
writeln ( 'numbers[', i, '] = ', numbers [i] );
readln (i);
end.
Program Double ( input, output );
type
intArray = array [1..5] of integer;
doubleArray = array [1..5] of real;
var
i, sum : integer;
temp : doubleArray;
numbers : intArray;
numbers2 : doubleArray;
begin
end.
for i := 1 to 5 do
begin
readln ( numbers2[i] );
temp[1] := numbers2[i];
numbers[i] := Trunc(temp[1]);
end;
for i := 1 to 5 do
begin
writeln ( 'numbers [', i, '] = ', numbers[i] );
end;
for i := 1 to 5 do
begin
writeln ( 'numbers [', i, '] = ', numbers2[i] );
end;
rea...