Технический форум - Паскаль, помогите

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Паскаль, помогите (http://www.tehnari.ru/f41/t105758/)

Andrey159+6

11.12.2015 19:28

Паскаль, помогите

Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO (случайным образом), а вывод – REPEAT...UNTIL (в скобках указана размерность массива):
заменить все элементы массива, которые больше 10, на 100 (12).

Евгений

11.12.2015 21:41

Код:

var  x:array[1..12] of integer;

     i,n:integer;

begin

     n:=12;

     Randomize;

      i:=1;

       While i<=n do

        begin

          x[i]:=Random(25)-10;

           Inc(i);

        end;

     i:=1;

      repeat

        if x[i]>10

         then x[i]:=100;

        Write(x[i]:4);

         Inc(i);

      until i>n;

     Writeln;

     Readln;

end.

Часовой пояс GMT +4, время: 22:27.