Ввести А, последний нулевой элемент каждой строки заменить на А - PascalABC.NET
Формулировка задачи:
Ввести А, последний нулевой элемент каждой строки заменить на А
Решение задачи: «Ввести А, последний нулевой элемент каждой строки заменить на А»
textual
Листинг программы
begin var Rows := ReadLnInteger(' Строк = '); var Cols := ReadLnInteger('Колонок = '); WriteLn('Сгенерирован массив случайных чисел:'); Randomize; var a : array [,] of Integer; SetLength(a, Rows, Cols); for var Row := 0 to Rows-1 do begin for var Col := 0 to Cols-1 do begin a[Row, Col] := Random(-10, +10); Write(a[Row, Col]:3); end; WriteLn; end; var А := ReadLnInteger('A ='); WriteLn('Обработанный массив:'); for var Row := 0 to Rows-1 do begin var Col := Cols-1; while (Col > -1) and (a[Row, Col] <> 0) do Col -= 1; if Col > -1 then a[Row, Col] := А; for Col := 0 to Cols-1 do Write(a[Row, Col]:3); WriteLn; end; end.
Объяснение кода листинга программы
- Программа считывает количество строк и столбцов из ввода пользователя.
- Выводит массив случайных чисел на экран.
- Пользователю предлагается ввести значение А.
- Программа обрабатывает массив, заменяя нулевые элементы на значение А.
- Выводит обработанный массив на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д