Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем

@Константинн · Регистрация: 06.03.2011

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

Даны действительные числа a1,.. a30. Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем.

go · 17.04.2011, 21:33

Pascal

Procedure Ud ( ms:array [1..30] of Integer; var m:array [1..30] of Integer);
Var i,j:integer; 
Begin j:=0;
 For i:=1 To 30
  if (i mod 3) <> 0 then begin Inc (j);  m[j]:=ms[i]; end;
 
End;

@Константинн 11 / 11 / 9 Регистрация: 06.03.2011 Сообщений: 67
		1
	Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем 17.04.2011, 21:08. Показов 1270. Ответов 1 Метки нет (Все метки) Даны действительные числа a1,.. a30. Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем. 0

	17.04.2011, 21:33

Опции темы

Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем

Решение