|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
22.06.2011, 22:27 | #1 (permalink) |
Member
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Разработать функцию для определения количества нулей в одномерном массиве
Вам первое и последнее устное замечание за использование режима Caps Lock при написании сообщений! Берегите чужое время, оно гораздо ценнее, чем ваше. Ваш модератор. |
22.06.2011, 22:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете пролистать аналогичные темы, это должно вам помочь Поиск двух MAX в одномерном массиве Массивы Разработать функцию Задача через функцию Подсчет количества |
22.06.2011, 23:00 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Постыдились бы с таким детсадом вылезать! Нолики не пересчитать самому... Фу! Вы же уже не новичок в программировании, так что давайте-ка сами. Да и мы здесь не для того, чтобы выполнять за лентяев тупую безмозглую рутинную работу.
|
22.06.2011, 23:18 | #3 (permalink) |
Member
Регистрация: 19.03.2011
Сообщений: 30
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нехорошо и неприлично грубить человеку, которого не знаешь совсем.Знаете, кому-то дано быть программистом, а кому-то нет.И мне не стыдно!на этом форуме помогают те, кто соображает в программировании, а не преподносят сообщения оскорбительного характера типа : "Ха-ха неудачник, не умеет нолики подсчитать".И тем, что Вы сейчас посмеялись надо мной, меня не расстроили.
|
23.06.2011, 10:19 | #4 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Напишите мне программу, Я в Паскале полный ламер энтузиазма не вызывают. Хотя, что делать - жалеешь оболтусов, пишешь. Цитата:
Цитата:
Код:
TYPE Vect=Array[1..100] of Integer; VAR A:Array[1..100,1..100] of Integer; V:Vect; i,j:Integer; M,N:Byte; Function Num_Zer(Vnz:Vect; Nnz:Byte):Byte; var k:Integer; NZ:Byte; begin NZ:=0; For k:=1 to Nnz do If Vnz[k]=0 then Inc(NZ); Num_Zer:=NZ; end; BEGIN Write('Number of lines in matrix = '); Readln(M); Write('Number of columns in matrix = '); Readln(N); Writeln; Randomize; For i:=1 to M do begin For j:=1 to N do begin A[i,j]:=3-Random(6); Write(A[i,j]:4); end; Writeln; end; Writeln; For i:=1 to M do begin For j:=1 to N do V[j]:=A[i,j]; Writeln('Line ',i:2,': number of zero elements is ',Num_Zer(V,N)); end; Readln END. |
|||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|