Выделить любым цветом четные индексы данного массива

@P1XELCORE · Регистрация: 11.04.2013

Author24 — интернет-сервис помощи студентам

Мне нужно выделить любым цветом четные индексы данного массива, программа составлена уже:

Pascal

uses crt;
var
d: array [1..10] of integer;
i,s:integer;
begin
s:=0;
writeln('Одномерный массив D');
for i:=1 to 10 do
begin
d[i]:=random(20)-10;
write(d[i],' ');
end;
for i:=1 to 10 do
begin
if i mod 2 =0 then
s:=s+d[i];
end;
writeln('Сумма: ',s);
end.

@КонецСвета · 09.06.2013, 21:25

Pascal

uses crt;
var
d: array [1..10] of integer;
i,s:integer;
begin
s:=0;
writeln('Одномерный массив D');
for i:=1 to 10 do
    begin
    d[i]:=random(20)-10;
    if i mod 2 =0 then
       begin
       textcolor(4);
       s:=s+d[i];
       end else textcolor(0);
    write(d[i],' ');
    end;
textcolor(0);
writeln('Сумма: ',s);
end.

	09.06.2013, 21:25