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

10.06.2013, 19:44. **Показов** 19976. **Ответов** 3

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

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

@Soniyagfto · 10.06.2013, 20:41

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

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

Pascal

for i:=1 to n do begin
IF (i mod 2)<>0 THEN
IF (a[i] mod 2)=0 then write ('Номер-',' ',i);
writeln;
end;

12.06.2013, 08:20

спасибо,а можно всю задачу целиком написать,пожалуйста!

@Soniyagfto · 12.06.2013, 11:02

Pascal

program ABC;
Var a:array[1..255] of integer;
I,n:integer;
Begin
Writeln ('введите n');
Readln (n);
Writeln ('введите массив');
For I:=1 to n do
Readln (a[i]);
........
End.

В место многоточия тот кусочек вставь

esena
		1
	Найти и вывести все номера четных элементов массива, стоящих на нечетных местах 10.06.2013, 19:44. Показов 19976. Ответов 3 Метки нет (Все метки) Найти и вывести все номера четных элементов массива, стоящих на нечетных местах.

esena
	12.06.2013, 08:20	3
	спасибо,а можно всю задачу целиком написать,пожалуйста!

Опции темы