Question

бір өлшемді массив мысал​

Answer 1

Ответ:

Program esep1;

Uses crt;

Var a: array [1..1000] of integer; I,n: integer;

Begin

Writeln(‘Массив өлшемін енгіз’);

Readln(n);

For i:=1 to n do

Begin

Write(‘a[’,i,’]’,’ енгіз’);

Read(a[i]);

End;

For i:=1 to n do

If a[i] mod 2 = 0 then writeln(‘a[’, I, ’]=’, a[i]);

End.

Объяснение: