Pascal Program to Read in Even Numbers Into An Array

Pascal Program to Read in Even Numbers Into An Array: This program takes in only even numbers into an array of two rows and two columns. 

Here, a looping and conditional statement are used, which are FOR DO and IF-THEN-ELSE respectively.

To begin.

An array is a collection of data of the same type and it consists of rows and columns. If you've solved matrices in mathematics, then you should have a good knowledge of Arrays in Pascal programming.

The FOR DO and IF-THEN-ELSE syntax in Pascal Programming is given by:

FOR (I=StartValue TO EndValue) DO


IF (Condition) THEN




Logic of the Program

Using both the looping and conditional statements in this Pascal Code example will allow us to make a selection of even numbers into an array with two rows and two columns.

Our Variable 'I' represents the rows while 'J' represents the columns, and with the modulus division operator in Mathematics, we can implement it here to ensure that any number divided by 2 without a remainder gives us our even two rows and columns.

You can also find the even numbers between a wide range of numbers by incrementing the looping END value for I and J variables.

Program Code

Program Eve;
Label 10;
A : array[1..2,1..2] of integer;
I, j: integer;
For I:= 1 to 2 do
   For j:=  1 to 2 do
10: readln (A[I , j]);
   If A[I , j] mod 2  < > 0 then goto 10
For I:= 1 to 2 do
For j:= 1 to 2 do
Writeln (A[I , j] );


The program above runs efficiently in printing even numbers into a 2 x 2 array.

Did this Pascal example code work for you or did you encounter problems while implementing it?

Let us know and we'll gladly help you out.

Also Read:

BASIC Program For Sum of Numbers Using IF Then Statement
Pascal Arithmetic Program Using IF THEN statement
Pascal Program to Create and Save Records in a Textfile
Pascal program To Calculate Area of a Triangle


Tech blogger, SEO expert, cryptocurrency enthusiast, and freelancer are the terms that describe me. I'll rather write a thousand words than speak hundred words, and that describes my passion as a content creator.