ЛС
Лена Солаченок

Помогите проверить программу на паскале)

Вот условие

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

program p7;
Uses crt;
cоnst n=6;
type quatr=array[1..n,1..n]of integer;
var
i,j,k:byte;
flag,false:boolean;
A:quatr;
Begin
randomize;
ClrScr;
writeln('Matrica A:');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(110);
write(a[i,j]:4);
end;
writeln;
end;
flag:=false;

for i:=1 to n do
for j:=1 to n do
if A[i,j]>100 then begin
flag:=true;
break;
end;
writeln ('flag=',flag);
if flag then writeln ('Tschiclo > 100')
else writeln ('Net');
if flag then
for i:=1 to n do
for i:=1 to n do
if i=j then A[i,j]:=0;

writeln('Matrica A:');
for i:=1 to n do
begin
for j:=1 to n do

write (A[i,j]:4);
writeln;
end;
readln;
end.

ИБ
Игорь Баширов

for i:=1 to n do
for i:=1 to n do
if i=j then A[i,j]:=0;

Вот это - не то чтобы неправильно, но быдлокод налицо. Замени на
for i:=1 to n do A[i,i]:=0;

RS
Rishat Sharipov

это что ?

for i:=1 to n do
for i:=1 to n do
if i=j then A[i,j]:=0;

так:

for i:=1 to n do A[i,i]:=0;

ненавижу Паскаль 🙂

ВК
Валентина Калайгерда

Почти правильно

<br> if flag then <br> begin <br> writeln('Tschislo>100'); <br> for i:1 to n do <br> A[i,i]:=0; <br> end <br> else <br> writeln('Net'); <br>

Похожие вопросы
Помогите составить программу в паскале
Помогите написать программу в паскале
Помогите с программой на паскаль
помогите с программой на паскале
Помогите с программой на паскаль!
Помогите с программой в паскале
Программа на паскале помогите
как в программе паскаль проверить теорему синусов
Помогите с программой Паскаля
помогите с программой паскаль