34

Написать 2 программы для Паскаля: 1) Поменяйте местами первую и последнюю строки…

07 марта 2023

Написать 2 программы для Паскаля: 1) Поменяйте местами первую и последнюю строки прямоугольной таблицы.2) Найдите произведения элементов строкпрямоугольной таблицы.

категория: информатика



78

1) vara: array [1… 5,1… 10] of integer; i,j,p: integer; beginfor i: =1 to 5 do beginfor j: =1 to 10 dobegina[i,j]: =random (50)+1; write (a[i,j]: 3); end; writeln; end; writeln ('меняем 1 и последнюю строки'); for j: =1 to 10 dobeginp: =a[1,j]; a[1,j]: =a[5,j]; a[5,j]: =p; end; for i: =1 to 5 do beginfor j: =1 to 10 dowrite (a[i,j]: 3); writeln; end; end.2) var a: array [1… 5, 1… 10] of integer; i, j: integer; p: real; begin for i: =1 to 5 do begin for j: =1 to 10 do begin a[i, j]: =random (50)+1; write (a[i, j]: 3); end; writeln; end; writeln ('произведения элементов строк'); for i: =1 to 5 do begin p: =1; for j: =1 to 10 do p: =p*a[i, j]; writeln (p: 25:0); end; end.

Знаете ответ?


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