составить блок-схемы, написать программу на Паскале

[Тане4ка]

составить блок-схемы, написать программу на Паскале.Помогите пожалуйста.
for i:=1 to n do
A[i]:=(i-75)*(i-75);
for i:=1 to n do
B[101-i]:=A[i];
Какой элемент массива B будет наибольшим?
1) B[1] 2) B[26] 3) B[75] 4) B[100]

[Poma][a]

4) B[100]
и ,Танюша, какую блок-схему составить? какую программу написать?

[Тане4ка]

Сообщение от Poma][a

4) B[100]
и ,Танюша, какая блок-схему составить? какую программу написать?

то что b 100 я знаю вот надо ее полностью написать вплоть от начала и до конца например var array [1..n] of integer и в общем так вплоть до end-а))а блоксхему не обязательно

[Poma][a]

var
   a, b : array [1.. 1000] of Integer;
   i, n : Integer;

begin
    ReadLn (n);
    for i:=1 to n do
            A[i]:=(i-75)*(i-75);
    for i:=1 to n do
            B[101-i]:=A[i];
    WriteLn (b[1],' ', b[26],' ', b[75],' ', b[100])
end.

если что то могу вывод другой, если надо

[Тане4ка]

Сообщение от Poma][a

var
   a, b : array [1.. 1000] of Integer;
   i, n : Integer;

begin
    ReadLn (n);
    for i:=1 to n do
            A[i]:=(i-75)*(i-75);
    for i:=1 to n do
            B[101-i]:=A[i];
    WriteLn (b[1],' ', b[26],' ', b[75],' ', b[100])
end.

если что то могу вывод другой, если надо

спасибо большое))ты меня спас

[Poma][a]

да пожалуйста) если надо обращайся) можно в асю (632133557)