Водномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов, удовлетворяющих условию a[i]> =5. паскаль.

Const n=10; var a: array[1..n]of integer; i: integer;             begin                for i: =1 to n do                    read(a[i]); {ввод массива с клавиатуры}                   for i: =1 to n do                        if a[i]> 5 then                                a[i]: =100;     writeln; writeln('новый массив:   ');               for i: =1 to n do                    write(a[i]: 4); end.

Первое , решение на pascal: var   c, i, sum: integer; begin   sum : = 0;   for i : = 1 to 100 do   begin     c : = i mod 2;     if (c = 0) then sum : = sum + i;   end;   writeln('сумма нечётных чисел от 1 до 100 равна ', sum); end. второе, решение на pascal: var  i, sum: integer; begin  sum : = 0;   for i : = 1 to 100 do  begin    sum : = sum + sqr(i);   end;   writeln('сумма квадратов чисел от 1 до 100 равна ', sum); end.

Program zhn; var   i1,i2,i3,m,n,i: integer;   a: array[1..20,1..20,1..20] of integer; begin     for i1: = 1 to 20 do begin       for i2: = 1 to 20 do begin           for i3: = 1 to 20 do begin               a[i1,i2,i3]: =random(100);               write(a[i1,i2,i3],' ');           end;       end;   end; end.