Заменить все элементы матрицы, равные С, нулями

@T_015 · Регистрация: 16.10.2010

Студворк — интернет-сервис помощи студентам

Дан двумерный массив размерностью 5*5. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообщение

@SuPeR XaKer · 18.10.2010, 00:39

Pascal

Uses
 CRT;
var
a:array[1..20,1..20]of integer;
i,j,n,m,c:integer;
t:boolean;
begin
clrscr;
write('Ââåäèòå êîë-âî ñòðîê: ');
readln(n);
write('Ââåäèòå êîë-âî ñòîëáöîâ: ');
readln(m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:5);
end;
writeln;
end;
writeln;
write('Ââåäèòå C: ');
readln(c);
t:=false;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=c then
begin
t:=true;
a[i,j]:=0;
end;
writeln;
if t then
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:5);
end;
writeln;
end;
end
else
writeln('Òàêèõ ýëåìåíòîâ íåò');
readkey
end.

@T_015 0 / 0 / 0 Регистрация: 16.10.2010 Сообщений: 40
		1
	Заменить все элементы матрицы, равные С, нулями 18.10.2010, 00:30. Показов 1205. Ответов 1 Метки нет (Все метки) Дан двумерный массив размерностью 5*5. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообщение 0

	18.10.2010, 00:39

Опции темы

Заменить все элементы матрицы, равные С, нулями

Решение