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

@евгеха · Регистрация: 31.10.2010

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

люди, завтра экзамен. нам дали подобные задания которые будут на практике. немогу разобраться даже в сути вопроса. помогите плиззззззз!!!! заранее спасибо

Дан массив A(n), содержащий действительные числа, и целое число n. Разработать программу на языке Паскаль, удаляющую из последовательности те члены, порядковые номера которых кратны трем, сохранив прежний порядок остальных членов.

@Puporev · 24.01.2011, 19:12

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln;
i:=n;
while i>=3 do
if i mod 3=0 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
  i:=i-1;
 end
else i:=i-1;
writeln('Удалены элементы с индексами, кратгыми 3');
for i:=1 to n do
write(a[i]:4);
readln
end.

@евгеха · 24.01.2011, 19:27 **[ТС]**

спасибо большое!! выручил

@евгеха 1 / 1 / 0 Регистрация: 31.10.2010 Сообщений: 51
		1
	Удалить из последовательности те члены, порядковые номера которых кратны трем 24.01.2011, 19:01. Показов 1181. Ответов 2 Метки нет (Все метки) люди, завтра экзамен. нам дали подобные задания которые будут на практике. немогу разобраться даже в сути вопроса. помогите плиззззззз!!!! заранее спасибо Дан массив A(n), содержащий действительные числа, и целое число n. Разработать программу на языке Паскаль, удаляющую из последовательности те члены, порядковые номера которых кратны трем, сохранив прежний порядок остальных членов. 0

@евгеха 1 / 1 / 0 Регистрация: 31.10.2010 Сообщений: 51
	24.01.2011, 19:27 [ТС]	3
	спасибо большое!! выручил 0

Опции темы

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

Решение