В каждой из двух матриц все отрицательные элементы заменить нулями - Turbo Pascal

Формулировка задачи:

даны 2 матрицы одинакового размера.в каждой из двух матриц все отрицательные элементы заменить нулями

Код к задаче: «В каждой из двух матриц все отрицательные элементы заменить нулями - Turbo Pascal»

textual
for i:=1 to x do
 for j:=1 to y do 
   if a[i,j]<0 then 
     a[i,j]:=0;

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы