Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ПРОГРАММА НА СТРОКИ(PASCAL) http://www.cyberforum.ru/pascal/thread34311.html
В файле набран текст.Удалить из текста все пробелы и подсчитать длинну сформированного текста.Задан сторка.Подсчитать наибольшее количество символов "?" идущих подряд.Результат записать в файл z1.
Pascal Вычислить сумму элементов побочной диагонали массива,кратных трем Вот еще одна задачка, пожалуйста!!!!! В массиве записаны целые числа.Вычислить сумму элементов побочной диагонали массива,кратных трем. http://www.cyberforum.ru/pascal/thread34309.html
Pascal Задачка на БД
Народ помогите пожалуйста
Рассчитать средний бал каждого ученика и средний бал по каждому предмету Pascal
Подскажите как решать плз! 1)Написать программу создающую на диске файл следующей структуры: Фамилия 1 (например Сидоров) оценки по математике оценки по русскому оценки по информатике ...
Pascal Простая задачка на Паскале http://www.cyberforum.ru/pascal/thread34299.html
Помогите пожалуйста!!!!! Дано натуральное число n (n мешьше или равно 99).Дописать к нему цифру k в конец и в начало.
Pascal Нахождение ранга матрицы Помогите плиз написать прогу на паскале для нахождения ранга матрицы... Добавлено через 8 часов 13 минут 31 секунду можно и на делфи... подробнее
Puporev
Модератор
55465 / 42572 / 29422
Регистрация: 18.05.2008
Сообщений: 100,714
16.05.2009, 11:06 0

подсчитать количество строк, в которых отличны от нуля только три элемента; поменять местами строки

16.05.2009, 11:06. Просмотров 1040. Ответов 4
Метки (Все метки)

Ответ

массив заполнила случайным образом
Это Вы каким-то извращенским способом его заполнили. Либо уж вручную заполняйте, либо например
a[i,j]:=random(2); массив будет из нолей и единиц.
найти номер строки, содержащей наибольшее количество нулей
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
mx:=0;imx:=1;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m do
  if a[i,j]=0 then k:=k+1;
  if k>mx then
    begin
     mx:=k;
     imx:=i;
    end;
  end;
writeln('Больше всего нолей в строке ',imx);


Вернуться к обсуждению:
подсчитать количество строк, в которых отличны от нуля только три элемента; поменять местами строки
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2009, 11:06
Готовые ответы и решения:

Двухмерный массив. Вычислить количество строк, сумма элементов которых меньше нуля, равна нулю или больше нуля
В двухмерном массиве вычислить количество строк, сумма элементов которых ...

Поменять местами три первых элемента массива
Есть задача: написать программу которая в массиве найдет три максимума и...

Поменять местами элементы строки и столбца, на пересечени которых находится максимальный элемент
Люди, помогите, если нетрудно, вот аттестационный пример, без него пропаду: ...

Поменять местами первую и последнюю строки матрицы, содержащие только отрицательные элементы
народ помогите написать программу. Дана матрица размера n*m.Поменять местами...

Подсчитать количество строк, элементы которых образуют возрастающую последовательность
Подсчитать количество строк, элементы которых образуют возрастающую...

4
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru