В двумерном массиве целочисленные все положительные элементы заменить на 0

@Ours21 · Регистрация: 15.11.2012

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

В двумерном массиве А[3.3] целочисленные все положительные элементы заменить на 0

@Alles · 25.01.2013, 09:37

Pascal

var
   a: array[1..3,1..3] of integer;
   i,j:integer;
begin
     randomize;
     for i:=1 to 3 do begin
         for j:=1 to 3 do begin
             a[i,j]:=random(20)-10;
             if (a[i,j]>0) then a[i,j]:=0;
             write(a[i,j], ' ');
             end;
         writeln;
         end;
end.

@Ours21 1 / 1 / 0 Регистрация: 15.11.2012 Сообщений: 51
		1
	В двумерном массиве целочисленные все положительные элементы заменить на 0 25.01.2013, 09:02. Показов 1211. Ответов 1 Метки нет (Все метки) В двумерном массиве А[3.3] целочисленные все положительные элементы заменить на 0 0

	25.01.2013, 09:37

В двумерном массиве целочисленные все положительные элементы заменить на 0

Решение