Записать на место положительных элементов матрицы единицы и вывести ее в виде таблицы

20.12.2013, 23:50. **Показов** 1614. **Ответов** 1

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

записать на место положительных элементов матрицы А(10,10) единицы и вывести ее в виде таблицы.
программа

@dimonlavron · 21.12.2013, 00:16

массив заполняется случайными числами в диапазоне [-25,25] и выводиться, потом выводиться после изменений

Pascal

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

Frau Lorenz
		1
	Записать на место положительных элементов матрицы единицы и вывести ее в виде таблицы 20.12.2013, 23:50. Показов 1614. Ответов 1 Метки нет (Все метки) записать на место положительных элементов матрицы А(10,10) единицы и вывести ее в виде таблицы. программа

	21.12.2013, 00:16

Опции темы

Записать на место положительных элементов матрицы единицы и вывести ее в виде таблицы

Решение