В массиве разделить все четные элементы на 2

Задача: В массиве разделить все четные элементы на 2.

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


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

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

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