Задать вопрос
5 февраля, 23:46

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

+1
Ответы (1)
  1. 6 февраля, 03:24
    0
    Const

    n=5;

    var

    a:array[1 ... n, 1 ... n] of integer;

    i, j:integer;

    begin

    //генератор случайных чисел. Диапазон от 1 до 10.

    for i:=1 to n do

    begin

    for j:=1 to n do

    begin

    a[i, j]:=random (10) + 1;

    write (a[i, j]," ") ;

    end;

    writeln () ;

    end;

    //Проверка условия и переприсвоение, если верно.

    for i:=1 to n do

    for j:=1 to n do

    begin

    if (((i+j) mod 2) = 0) then

    a[i, j]:=a[1,2];

    end;

    //Вывод полученного массива.

    for i:=1 to n do

    begin

    for j:=1 to n do

    begin

    write (a[i, j]," ") ;

    end;

    writeln () ;

    end;

    //Ожидание.

    readln () ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите решить. Напишите программу формирования массива размером 5 х5 с помощью датчика случайных чисел замените в нем значения элементов ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы