Обнулить отрицательные элементы, стоящие в чётных строках

@MoonWalker · Регистрация: 02.06.2014

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

Завтра последняя пара перед зачетом.
Два задания я уже сделал. А на этой этом задании и застрял. Помогите, пожалуйста.
(Ссылка на сторонний ресурс удалена)

Заполните двумерный числовой массив В(6,6) случайными целыми числами в интервале [-65; 65]. Выведите значения элементов массива в виде матрицы, причём на каждый элемент отведите 4 позиции. Ответ задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран, если в нём произошли изменения: перестановка, замена, изменение значения элементов и т.д.

Обнулите отрицательные элементы, стоящие в чётных строках.

@dencil · 02.06.2014, 19:29

Pascal

var B:array[1..6,1..6] of real;
i,j:integer;
begin
randomize;
for i:=1 to 6 do begin
writeln;
for j:=1 to 6 do begin
B[i,j]:=random(130)-65;
write(B[i,j]:4);
end;
end;
for i:=1 to 6 do
for j:=1 to 6 do begin
if i mod 2=0 then
if (B[i,j]<0) then B[i,j]:=0;
end;
writeln;
for i:=1 to 6 do begin
writeln;
for j:=1 to 6 do begin
write(B[i,j]:4);
end;
end;
writeln;
readln
end.

@MoonWalker · 02.06.2014, 19:41 **[ТС]**

Спасибо огромное!

@MoonWalker 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 5
		1
	Обнулить отрицательные элементы, стоящие в чётных строках 02.06.2014, 19:06. Показов 1917. Ответов 2 Метки нет (Все метки) Завтра последняя пара перед зачетом. Два задания я уже сделал. А на этой этом задании и застрял. Помогите, пожалуйста. (Ссылка на сторонний ресурс удалена) Заполните двумерный числовой массив В(6,6) случайными целыми числами в интервале [-65; 65]. Выведите значения элементов массива в виде матрицы, причём на каждый элемент отведите 4 позиции. Ответ задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран, если в нём произошли изменения: перестановка, замена, изменение значения элементов и т.д. Обнулите отрицательные элементы, стоящие в чётных строках. 0

@MoonWalker 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 5
	02.06.2014, 19:41 [ТС]	3
	Спасибо огромное! 0

Опции темы

Обнулить отрицательные элементы, стоящие в чётных строках

Решение