Линейные массивы

@Никко · Регистрация: 06.04.2009

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

Помогите решить. плизз.

Задача1.
Дан массив действительных чисел, размерность которого N.
Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.

Задача2.
В заданном одномерном массиве поменять местами соседнии элементы, стоящие на чётных местах, с элементами, стоящими на нечётных.

@begemotikdin · 06.04.2009, 18:17

Сообщение от Никко

Помогите решить. плизз.

Задача1.
Дан массив действительных чисел, размерность которого N.
Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.

Pascal

kol_otr:=0;
kol_pol:=0;
kol_nul:=0;
for i:=1 to n do
 begin
  if a[i]<0 then inc(kol_nul);
  if a[i]>0 then inc(kol_pol);
  if a[i]=0 then inc(kol_nul);
 end;
writeln(kol_pol,' ',kol_otr,' ',kol_nul);

@Никко 0 / 0 / 0 Регистрация: 06.04.2009 Сообщений: 3
		1
	Линейные массивы 06.04.2009, 17:36. Показов 1202. Ответов 1 Метки нет (Все метки) Помогите решить. плизз. Задача1. Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. Задача2. В заданном одномерном массиве поменять местами соседнии элементы, стоящие на чётных местах, с элементами, стоящими на нечётных. 0

Опции темы

Линейные массивы

Решение