Code
program Chetnoct;
const size=10;
var
A: array[1..size] of integer;
summa, i: integer;
begin
writeln('A[]=');
randomize;
for i:=1 to size do
A[i]:=random(99);
for i:=1 to size do
writeln(A[i]);
for i:=1 to size do
if((i mod 2)=0)
then summa:=summa+A[i];
writeln('summa=', summa);
readln;
end.
я немного своего добавил: вывод этих самых различных чисел, если не надо удали:
и
Code
for i:=1 to size do
writeln(A[i]);
Если бы не ребята, я бы полгода искал, как сделать эти "чётность" и "случайность". Ещё раз спс.
Ну я же тебе говорил, что тут крутые ребята есть, которые дадут ответ на любой вопрос!