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

[albina230493]

дан одномерный массив размерностью N,заполненный случайными числами .Каждый третий элемент массива возвести в квадрат,если элемент отрицательнай.Измененный массив вывксти на экран.

[Hacker19_90]

Что вызывает затруднение?

[albina230493]

всё!я в этом совсем не разбираюсь,а решить надо.

[albina230493]

но болье вызывает затруднение это:"Каждый третий элемент массива возвести в квадрат,если элемент отрицательнай.Измененный массив вывксти на экран. "

[Hacker19_90]

как обычно

program example;
uses crt;
const
    n = 10;
var
    mas: array[1..n] of integer;
    i: integer;
begin
    clrscr;
    Writeln ('Ваш исходный массив: ');
    randomize;
    for i := 1 to n do
    begin
        mas[i] := random(51) - 25;
        Write (mas[i]:4);
        if (i mod 3) = 0 then 
            if mas[i] < 0 then mas[i] := sqr(mas[i]);
    end;
    Writeln;
    Writeln ('Измененный массив:');
    for i := 1 to n do
         Write (mas[i]:4);
    Writeln;
    ReadKey;
end.

[albina230493]

спасибо огромное!)))