ТурбоПаскаль 7. Ввести с клавиатуры одномерный массив А целого типа. Сформировать новый...

0 голосов
69 просмотров

ТурбоПаскаль 7. Ввести с клавиатуры одномерный массив А целого типа. Сформировать новый массив С, переписав в него элементы масссива А с индексами кратными 3


Информатика (77 баллов) | 69 просмотров
0

Нормально

0

Просто если 15 баллов за ответ, то никто не поможет

Дан 1 ответ
0 голосов
Правильный ответ

Const
  nn=100;
var
  A,C:array[1..nn] of integer;
  i,k,n:integer;
begin
  Write('n='); Read(n);
  k:=0;
  for i:=1 to n do begin
    Read(a[i]);
    if i mod 3=0 then begin
      k:=k+1; c[k]:=a[i]
      end
    end;
  Write('C[',k,']= ');
  for i:=1 to k do Write(c[i],' ');
  Writeln
end.

Пример
n=10
3 18 -6 14 21 42 15 28 -7 12
C[3]= -6 42 -7

(150k баллов)
0

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

0

Лучше и то, и другое)

0

Спасибо огромное за помощь