1)напишите программу формирования массива размеров 5 х 5 с подмогою датчика

1)напишите программу формирования массива размеров 5 х 5 с помощью датчика случайных чисел.поменяйте в нем все четные значения частей суммой индексов элементов основной диагонали.Выведите на экран начальный и модифицированный массивы (программка на языке Паскаля)
2)Составьте программку формирования и вывода на экран одномерного массива, состоящего из двойных малых элементов строк двумерного массива, заданного с подмогою датчика случайных чисел

Задать свой вопрос
1 ответ
Var a: array [1..5, 1..5] of integer;
    i, m, j: integer;
begin
     for i := 1 to 5 do
         for j := 1 to 5 do
         begin
              a[i, j] := random(50) - 25;
              writeln('[', i, ',', j, '] =gt; ', a[i, j]);
         end;

     for i := 1 to 5 do
         for j := 1 to 5 do
             if (a[i, j] mod 2 = 0) then a[i, j] := 30;

     writeln();

     for i := 1 to 5 do
         for j := 1 to 5 do
              writeln('[', i, ',', j, '] =gt; ', a[i, j]);
end.

Для второго не сообразил, как решать ._.
Виталя
спасибо ,а почему 15 ?
Савицкас Алла
Сумма индексов основной диагонали, но я вот думаю: 15 либо 30?.. Вообщем-то, наверное, 30, исправил ._. А вообщем это потому, что считать в цикле нерационально это =)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт