Написать программу на pascal: дана матрица b состоящая из целых чисел получить матрицу r значения которой равны удвоенным значениям матрицы b

105

218

Посмотреть ответы 2

Ответы на вопрос:

danyarasporkin

Информатика

4,6(22 оценок)

Uses crt; var b: array[1..100,1..100] of integer; r: array[1..100,1..100] of integer; str,stb,i,j: integer; begin randomize; clrscr; writeln('введите количество строк : '); read(str); writeln('введите количество столбцов: '); readln(stb); writeln; writeln('matrica b'); for i: =1 to str do begin for j: =1 to stb do begin b[i,j]: =random(30)+1; r[i,j]: =2*b[i,j]; write(b[i,j]: 3,' '); end; writeln; end; writeln; writeln('matrica r'); for i: =1 to str do begin for j: =1 to stb do begin write(r[i,j]: 3,' '); end; writeln; end; readln; end.запускаем , и первом делом создаём двухмерный массив введя числа(когда программа запросит) не превышающий числа 100 (строки и столбцы) после как мы ввели числа создается массив заполняя массив случайными числами в диапазоне 1..30.. и выводим массив b, после удваиваем каждый элемент и заносим удвоенный результат в r, и тоже выводим