практическая работа

[ффффф]

Вычислите значения функции Y=X*X для Х=2,4,6,8,...,35 и разместите их в одномерном массиве Y.

помогите составить программу?))))

[Александриус]

точно "35"?

[RUSt88]

program p;
var
	y: array[17] of integer;
	i, k: integer;
begin
	k := 0;
	for i := 2 to 36 do begin
		if ( i mod 2 = 0) then begin
			y[k] := sqr(i);
			write(y[k], #32);
			inc(k);
		end;
	end;
end.

[ффффф]

ой,36...тормоз я...

[Stilet]

Я бы лучше так сделал:

program p;
var
	y: array[1..17] of integer;
	i, k: integer;
begin
	i:=2;
	while (i<=36)and((i div 2)<17) do begin write(sqr(i):10); y[i div 2]:=sqr(i)  inc(i,2);end;
	end;
readln;
end.

[RUSt88]

можно и так, но никак не так

y: array[17] of integer;

не путаем с С-подобными (я сам лажанул))))

и в задаче сказано, что в массив занести, у вас просто на консоль выводит

[Александриус]

i:=1;x:=2;
repeat
mas[i]:=sqr(x);int(i);x:=x+2;
until x<=36;

[Stilet]

у вас просто на консоль выводит

Я поправил код. Я просто провтыкал эту часть задания.

[RUSt88]

y: array[1..17] of integer;

тоже немного не верно, четных элементов от 2 до 36 будет 18