Выяснить, каких элементов больше в таблице: больших 0 или равных 0

@Bordex · Регистрация: 10.12.2015

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

Дан целочисленный линейный массив, состоящий из 20 элементов. Выяснить, каких элементов больше в таблице: больших 0 или равных 0. Для подсчета количества элементов можно использовать процедуру.

@ZX Spectrum-128 · 18.12.2015, 22:59

Pascal

k0:=0;
k1:=0;
for i:=1 to 20 do
 if a[i]=0 then 
  inc(k0)
 else
  if a[i]>0 then 
   inc(k1);

@Bordex 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 22
		1
	Выяснить, каких элементов больше в таблице: больших 0 или равных 0 18.12.2015, 13:10. Показов 1091. Ответов 1 Метки нет (Все метки) Дан целочисленный линейный массив, состоящий из 20 элементов. Выяснить, каких элементов больше в таблице: больших 0 или равных 0. Для подсчета количества элементов можно использовать процедуру. 0

Опции темы

Выяснить, каких элементов больше в таблице: больших 0 или равных 0

Решение