задание 8:
var
A: array [1..10] of Integer;
i, s: Integer;
begin
Randomize;
WriteLn ('Массив случайных элементов:');
for i := Low (A) to High (A) do begin
A [i] := Random (10);
Write (IntToStr (A [i]) + ' ');
end;
s := 0;
for i := Low (A) to High (A) do begin
if i mod 2 = 0 then
s := s + A [i];
end;
Writeln;
Writeln ('Сумма элементов четных индексов = ' + IntToStr (s));
end;
// конец программы
// задание 9 - можно взять часть кода из 8 -го
var
A: array [1..10] of Integer;
i: Integer;
begin
Randomize;
WriteLn ('Массив случайных элементов:');
for i := Low (A) to High (A) do begin
A [i] := Random (10);
Write (IntToStr (A [i]) + ' ');
end;
end;