Написать программу, содержащую подпрограмму

08.01.2011, 09:44. **Показов** 1432. **Ответов** 1

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

Срочно нужно написать программу. Пожалуйста помогите.

Написать программу, содержащую подпрограмму для замены в массиве Y(50) всех элементов с четными индексами на значение 1

@Dekio · 08.01.2011, 10:49

Pascal

procedure change(var a :mas; n :integer);
i :integer;
begin
for i:=1 to n do
if not odd(i) then
a[i]:=1;
end;

Redliya
		1
	Написать программу, содержащую подпрограмму 08.01.2011, 09:44. Показов 1432. Ответов 1 Метки нет (Все метки) Срочно нужно написать программу. Пожалуйста помогите. Написать программу, содержащую подпрограмму для замены в массиве Y(50) всех элементов с четными индексами на значение 1

	08.01.2011, 10:49

Написать программу, содержащую подпрограмму

Решение