Первый нечетный элемент каждой строки матрицы удвоить

@зайка444 · Регистрация: 20.05.2011

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

Дан двумерный массив целых чисел.
1. Первый нечетный элемент каждой строки удвоить
2. Последний нулевой элемент каждого столбца заменить на число 100
пожалуйста, помоги мне до завтра

@зайка444 · 02.06.2011, 20:27 **[ТС]**

Pascal

type
mas2=array [1..100,1..100] of integer;
var
a:mas2;
i,j,m,n:integer;
begin
write ('Введите размерность массива m,n');
readln (m,n);
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random (10,50);
write (a[i,j]:5); end;writeln;end;
for i:=1 to m do
for j:=1 to n do begin
if (a[i,j] mod 2=1) then a[i,j]:=a[i,j]*2;end;
for i:=1 to m do
for j:=1 to n do begin
if a[n,j]=0 then a[n,j]:=100;
writeln ('j=', j:2);
end;end.

помоги мне исправить эту программу. жду до завтра сдать

@зайка444 3 / 3 / 2 Регистрация: 20.05.2011 Сообщений: 57
		1
	Первый нечетный элемент каждой строки матрицы удвоить 01.06.2011, 17:15. Показов 2270. Ответов 1 Метки нет (Все метки) Дан двумерный массив целых чисел. 1. Первый нечетный элемент каждой строки удвоить 2. Последний нулевой элемент каждого столбца заменить на число 100 пожалуйста, помоги мне до завтра 0

	02.06.2011, 20:27

Первый нечетный элемент каждой строки матрицы удвоить

Решение