PASCAL ABC. массивы

[XIMAGAN]

4.13. Из элементов массива D сформировать массив А того же размера по правилу: если номер четный, то Ai=Di*2, если нечет¬ный, то Ai=Di \ i.


6.5. В двумерном массиве A[N,N] (элементы – случайные числа в диапазоне [-30,40]) элементы стоящие ниже главной диагонали заменить их квадратами.

[Sibedir]

Язык какой?
Или вы этого тоже не знаете? (типа шутка)

[TripleX]

А язык то какой?

[DoDge_VipeR]

4.13

for i:=1 to n do
if odd(i) then A[i]=D[i] /i
else a[i]:=d[i]*2;

6.5.

for i:=2 to n do
for j:=1 to i-1 do
a[i,j]:=sqr(a[i,j]);

[XIMAGAN]

блин мы не так пишем((( надо на PASCAL ABC

[Volt]

а это какой? не паскаль разве

[XIMAGAN]

мне надо от начала до конца, пожалуйста а то у меня экзамен через день уже((

[Volt]

первый вот а второй аналогично только заполняете массив случными числами random

var A: array [1..n] of real; D: array [1..n] of real;   i:integer;
begin

for i:=1 to n do
readln(D[i]);

for i:=1 to n do
if odd(i) then A[i]:=D[i] /i
else a[i]:=d[i]*2;

end.

[ROMA2PVT]

мне надо от начала до конца, пожалуйста а то у меня экзамен через день уже((

А чё толку тогда экзамен если ты даже массив сформировать не можешь.Думаешь поможет.