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

@ProgrammerOnDel · Регистрация: 04.02.2011

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

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

@Тамила · 25.02.2011, 22:25

Pascal

uses crt;
var
a:array[1..4,1..4]of integer;
i,k,j,c:integer;
begin clrscr;
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(30);
for i:=1 to 4 do
 begin
    for j:=1 to 4 do
    write(a[i,j],'  ');
    writeln;
 end;
writeln;
write('c=');
read(c);
k:=0;
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j]=c then
 begin
   a[i,j]:=0;
   inc(k);
 end;
if k=0 then writeln('Takih chisel net!')
else
 begin
    for i:=1 to 4 do
     begin
        for j:=1 to 4 do
        write(a[i,j],'  ');
        writeln;
     end;
 end;
readkey;
end.

@ProgrammerOnDel · 25.02.2011, 22:32 **[ТС]**

Спасибо на тебе +

@ProgrammerOnDel 16 / 16 / 0 Регистрация: 04.02.2011 Сообщений: 62
		1
	Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообще 25.02.2011, 21:48. Показов 1690. Ответов 2 Метки нет (Все метки) Дан двумерный массив размерностью 4х4. Заменить все элементы массива = С нулями. В случае если таких элементов нет, вывести соответствующее сообщение. 0

@ProgrammerOnDel 16 / 16 / 0 Регистрация: 04.02.2011 Сообщений: 62
	25.02.2011, 22:32 [ТС]	3
	Спасибо на тебе + 0

Опции темы

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

Решение