решите в Паскаль!!! пожалуйстаДан одномерный массив а.Сформировать новый массив который
Решите в Паскаль!!! пожалуйста
Дан одномерный массив а.Сформировать новый массив который состоит только из тех частей массива в,которые превосходят собственный номер на 10.если таких частей нет,то выдать извещенье
program raf105;
const
n = 10; //Размер массива
var
a,b: array[1..n] of integer;
i,c: integer;
begin
writeln('Вводите ',n,' чисел по очереди');
for i:=1 to n do
begin
write(i,'. ');
readln(a[i]);
if a[i]-10 = i
then begin
c:= c+1;
b[c]:= a[i];
end;
end;
if c gt; 0
then begin
write('Новый массив: ');
for i:=1 to c do
write(b[i],' ')
end
else writeln('Частей превосходящих свой индекс на 10 не найдено.');
end.
PascalABC 3.4.2
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.