|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.04.2010, 00:42 | #1 |
Регистрация: 26.04.2010
Сообщений: 3
|
Замена отрицательных чисел нулями
Добрые люди, осталась мелочь. Прошу помощи.
program kontrolnaya; uses crt; const N1=3;N2=8; var i,j:integer; f:array[1..N1,1..N2] of integer; f_matr:text; function MaxRow: integer; var i,j,x,y: integer; begin x:=1; y:=1; for i:=1 to N1 do for j:=1 to N2 do if f[i,j]>f[x,y] then begin x:=i; y:=j end; MaxRow:=x; end; begin clrscr; randomize; assign (f_matr,'matrica.txt'); rewrite(f_matr); writeln('matrica'); for i:=1 to N1 do begin for j:=1 to N2 do begin f[i,j]:=random(201)-100; write (f[i,j]:5); write(f_matr,f[i,j]:5); end; writeln; writeln(f_matr); end; i:= MaxRow; write ('nomer stroki',i:2); write (f_matr,i:2); close(f_matr); readln; end. Нужно заменить все отрицательные числа нулями в строке с максимальным числом. Подскажите или хоть намекните, как это можно сделать. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод отрицательных чисел в двоичную систему | ioda1986 | Помощь студентам | 1 | 24.02.2010 00:55 |
С++ Составить функцию для подсчета числа серий положительных, отрицательных чисел и нулей | KASPEER | Помощь студентам | 0 | 13.01.2010 15:19 |
сумму положительных и отрицательных чисел матрицы | Superlotles | Помощь студентам | 1 | 07.01.2010 11:11 |
Сложение отрицательных чисел в дополнительном коде | Fataller | Помощь студентам | 0 | 28.10.2009 19:12 |
Паскаль.Файлы.удаление отрицательных чисел | NEMO1991 | Помощь студентам | 3 | 06.06.2009 00:38 |