Find the sum of even elements of an array of integers. The size of the array is 20. Fill the array with random numbers from 100 to 200

univerkov | November 27, 2020 | education

var
i, chet :longint;
a :array[1 .. 20] of longint;
begin
randomize;
chet:=0;
For i := 1 to 20 do begin
a[i] := random(101) + 100;
If (a[i] mod 2 = 0) then
chet:= chet + a[i];
end;
writeln(chet);
end.

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.