Как пользоваться Поиском

поиск по сайту
логин

пароль

регистрация     
забыли пароль?

Помощь сайту

Лекции » Информатика, Логика

09.05.2019 в 20:19 Задачи к лекции
:
Работа с массивами

№ 1. Заполнить массив размером 5х5 случайными числами из диапазона [0;10], 

 затем обнулить диагональные элементы.

Вывести исходный массив и измененный.

Программа.

Uses Crt;

var A :array [1..5, 1..5] of integer;

i, j: integer;

begin

randomize;        {запускает генератор случайных чисел}

 for i:=1 to 5 do

  for j:=1 to 5 do

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

                       {генерируем эл-ты массива -целые числа от 0 до 10}

  writeln(′ isхodniy massiv: ′);

 for i:=1 to 5 do

  begin

   for j:=1 to 5 do

     write(A[i,j], ′ ′ );     {выводим 5 эл-тов через пробел}

    writeln;                 {переходим на новую строку}

  end;

 for i:=1 to 5 do

   for j:=1 to 5 do

      if (i=j) then A[i,j]:=0;     {обнуляем диагональные элементы}

 writeln(′noviy massiv′);

 for i:=1 to 5 do

  begin

   for j:=1 to 5 do

     write(A[i,j], ′ ′ );

   writeln;

  end;

end.

Комментарии к лекции (скрыть)

Комментариев нет.

Задачи к лекции

Задач нет.