Дан массив с 10 числами ( любой диапазон с отрицательными числами)
Необходимо посчитать элементы массива значения которых кратно 2. Заменить элементы массива значения которых отрицательны,заменить числом 111
Напишите программу пожалуйста на языке паскаля

1

Ответы и объяснения

2013-05-17T11:53:10+04:00

const
n=10;
var
a:array[1..N] of integer;
j,s: integer;
begin
s:=0;
for j:=1 to n do
a[j]:=random(100)-50; // Чтобы в массиве были отрицательные числа.
for j:=1 to n do
begin
if (A[J]>0) and (A[J] mod 2 =0) then
s:=s+1;
if (A[J]<0) then
A[J]:=111;
end;
writeln(s);
readln
end.