Регистрация
BEHEP
09.06.2021 21:17
Информатика
Есть ответ 👍

Если в заданной матрице a(n, m) есть хотя бы один элемент, больший ста, то элементы обеих диагоналей замените нулями. написать программу на pascal

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

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

Milana2K18
Milana2K18
4,4(24 оценок)
Program  gt; var  a: array[1..100,1..100]of  integer; n,m,i,  j  ,q: integer; begin read(n,m); q: =0; for  i: =1 to n do for j: =1 to m do begin read(a[i,  j]); if(a[i,  j]> 100)then q: =1; end; if(q=1)then begin   for i: =1 to n do for j: =1 to m do if(i=j)or(i=m-j+1)then  a[i,j]: =0;   end; for i: =1 to n do begin for j: =1 to m do write(a[i,  j],' '); writeln; end; end.
kakaxa6
kakaxa6
4,7(36 оценок)

это модем правильно

дядядяюяюяюяююяюч

Популярно: Информатика