Заменить элементы с нечетными номерами на квадрат их номера

Задача: Заменить элементы с нечетными номерами на квадрат их номера.

Листинг(исходник) программы:


	Uses crt;
	Const n=10;
	Var F : array[1..n] of integer;
	i : integer;
	Begin
	clrscr;
	randomize;
	textcolor(7);
	writeln(\'Array F :\');
	for i:=1 to n do begin
	F[i]:=random(10)-4;
	end;
	
	for i:=1 to n do begin
	if not((i mod 2)=0) then begin
	textcolor(14);
	F[i]:=i*i;
	write(F[i]:4);
	end
	else begin
	textcolor(7);
	write(F[i]:4);
	end;
	end;
	readkey;
	End.
	

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *