В одномерном массиве вставить элемент, равный 100, перед последним элементом, значение которого меньше 100

@Дмитрий59 · Регистрация: 11.02.2014

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

В одномерном массиве с вещественными элементами вставить элемент, равный 100, перед последним элементом, значение которого не превосходит 100 по модулю. Для заполнения, вывода и вставки элементов написать процедуры. Массив выводить на экран до и после обработки. Заполнять массив из текстового файла.

@Puporev · 05.10.2014, 11:32

Пример входного файла input.txt, файл в папке с программой
15
-52.37 -13.61 -55.84 -21.33 -115.54 -21.63 -58.37 146.57 90.08 54.05 42.44 85.11 -133.12 117.63 -146.36

Pascal

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure zapis(var f:text;var a:mas;var n:integer);
var i:integer;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
end;
procedure Vyvod(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i]:8:2);
writeln
end;
procedure Vstav(var a:mas;var n:integer);
var i,ip,j:integer;
begin
i:=n;
ip:=0;
while (i>=1)and(ip=0) do
if abs(a[i])<=100 then ip:=i
else i:=i-1;
n:=n+1;
for i:=n downto ip+2 do
a[i]:=a[i-1];
a[ip+1]:=100;
end;
var f:text;
    n:integer;
    a:mas;
begin
clrscr;
Zapis(f,a,n);
writeln('Исходный массив');
Vyvod(a,n);
Vstav(a,n);
writeln('Вставка числа 100 после последнего, по модулю меньшего 100');
Vyvod(a,n);
readln
end.

@Дмитрий59 0 / 0 / 0 Регистрация: 11.02.2014 Сообщений: 9
		1
	В одномерном массиве вставить элемент, равный 100, перед последним элементом, значение которого меньше 100 05.10.2014, 09:47. Показов 1923. Ответов 1 Метки нет (Все метки) В одномерном массиве с вещественными элементами вставить элемент, равный 100, перед последним элементом, значение которого не превосходит 100 по модулю. Для заполнения, вывода и вставки элементов написать процедуры. Массив выводить на экран до и после обработки. Заполнять массив из текстового файла. 0

	05.10.2014, 11:32

В одномерном массиве вставить элемент, равный 100, перед последним элементом, значение которого меньше 100

Решение