Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » что никак не получится, как ни пробовала...
что никак не получится, как ни пробовала...
Задана матрица а(4х3). Составить программу формирования новой матрицы посредством замены всех положительных элементов на 1, а остальных элементов на 0.
1 | Автор: basyaka23 | 2012-01-09, 15:37   |  Репутация: [ + 0 ]
1 | Автор: basyaka23 | 2012-01-09, 15:37   |  Репутация: [ + 0 ]
var
a:array[1..4,1..3]of integer;
i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 3 do begin
read(a[i,j]);
if a[i,j]>0 then a[i,j]:=1 else a[i,j]:=0;end;
for i:=1 to 4 do
for j:=1 to 3 do
write(a[i,j],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-01-11, 00:21   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-01-11, 00:21   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » что никак не получится, как ни пробовала...
Страница 1 из 11
Поиск: