Найти количество нулевых элементов, стоящих на четных местах

@Vladimir777xxx · Регистрация: 11.01.2012

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

Дан массив элементов длины N. Найти:
1. Количество нулевых элементов, стоящих на четных местах.

@Waderer · 12.01.2012, 09:58

Pascal

1
2
3

kol = 0;
for i:=0 to kolsimvol do
if (mas[i] mod 2 = 0) and (mas[i] = 0) then int(kol);

@Vladimir777xxx · 12.01.2012, 10:02 **[ТС]**

маленько не так я написал

@ПавелКалашников · 12.01.2012, 10:04

Pascal

kol = 0;
 for i:=1 to N do
   if (mas[i] mod 2 = 0) and (mas[i] = 0) then 
     inс(kol); {или можно kol := kol + 1;}

думаю так будет правильней

@Vladimir777xxx · 12.01.2012, 10:22 **[ТС]**

спасибо!!!

Добавлено через 1 минуту
Дан массив элементов длины N. Найти:
Сумму нечетных отрицательных элементов.

Добавлено через 32 секунды
поможешь pls?!!!

@ПавелКалашников · 12.01.2012, 10:27

Pascal

uses crt;
const n = 10;
var i, sum : integer;
a : array [1..n] of integer;
begin
  for i := 1 to n do
    read(a[i]);
  sum := 0;
  for i := 1 to n do
    if ((a[i] mod 2 <> 0) and (a[i] < 0)) then
     sum := sum + a[i];
  writeln(sum);
  readkey;
end.

@Vladimir777xxx · 12.01.2012, 10:30 **[ТС]**

спасибо большое!!!

@SuPeR XaKer · 12.01.2012, 17:30

ПавелКалашников, только чётность индекса элемента надо проверять а не самого элемента.

1. Количество нулевых элементов, стоящих на четных местах

@tomas2490 · 02.04.2012, 20:43

Сообщение от Vladimir777xxx

Дан массив элементов длины N. Найти:
1. Количество нулевых элементов, стоящих на четных местах.

а в паскале абс можно программу?

@Севак · 02.04.2012, 21:10

Pascal

uses crt;
var a: array[1..10] of integer;
    i,o: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(2);
write(a[i],' ');
if (i mod 2=0) and (a[i]=0) then inc(o);
end;
writeln;
write('Ответ: ',o);
end.

вот правильное решение

@Vladimir777xxx 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 13
		1
	Найти количество нулевых элементов, стоящих на четных местах 12.01.2012, 09:52. Показов 3435. Ответов 9 Метки нет (Все метки) Дан массив элементов длины N. Найти: 1. Количество нулевых элементов, стоящих на четных местах. 0

@Vladimir777xxx 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 13
	12.01.2012, 10:02 [ТС]	3
	маленько не так я написал 0

@Vladimir777xxx 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 13
	12.01.2012, 10:22 [ТС]	5
	спасибо!!! Добавлено через 1 минуту Дан массив элементов длины N. Найти: Сумму нечетных отрицательных элементов. Добавлено через 32 секунды поможешь pls?!!! 0

@Vladimir777xxx 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 13
	12.01.2012, 10:30 [ТС]	7
	спасибо большое!!! 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	12.01.2012, 17:30	8
	ПавелКалашников, только чётность индекса элемента надо проверять а не самого элемента. 1. Количество нулевых элементов, стоящих на четных местах 0

@tomas2490 0 / 0 / 0 Регистрация: 02.04.2012 Сообщений: 8
	02.04.2012, 20:43	9
	Сообщение от Vladimir777xxx Дан массив элементов длины N. Найти: 1. Количество нулевых элементов, стоящих на четных местах. а в паскале абс можно программу? 0

	02.04.2012, 21:10

Опции темы