Помощь - Поиск - Пользователи - Календарь
Полная версия: Снова задача про массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
goosberry
Даны массивы a и b из N вещественных чисел. Составить массив c, содержащий номера таких элементов массива a, значения которых больше модуля разности первого и последнего элментов массива b.
Вот такая у меня ерунда получилась, и как всегда, с ошибками... В голове уже всё перепуталось...
 
program zadacha;
uses crt;
var a: array [1..N] of real;
b: array [1..N] of real;
c: array [1..K] of integer;
I,N,K: integer;
R: real;
begin clrscr;
write (‘Размер массивов a b’);
readln (N);
write (‘Введите массив a’);
for i:=1 to N do readln (a[i]);
write (‘Введите массив b’);
for i:=1 to N do readln (b[i]);
R:=b[1]-b[N];
R:=ABS ®;
for i:=1 to N do begin
if a[i]>R then begin c[i]:=I; K:=K+1; end;end;
for i:= 1 to K do writeln (c[i]);
readkey;
end.

.
Заранее спасибо.
samec
вот так будет по правильней:
 
program zadacha;
uses crt;
CONST G=20; {задаём максимальную размерность массивов a и b}
var
a: array [1..G] of real;
b: array [1..G] of real;
c: array [1..G] of integer;
I,N,K: integer;
R: real;
begin
clrscr;
write (‘Размер массивов a b’);
repeat {вводим размерность массивов а и b и проверяем, чтобы она не превышала максимальную размерность}
readln (N);
until(N<=G);
write (‘Введите массив a’);
for i:=1 to N do readln (a[i]);
write (‘Введите массив b’);
for i:=1 to N do readln (b[i]);
R:=b[1]-b[N];
R:=ABS ®;
k=0; {в начале в массиве С - 0 элементов}
for i:=1 to N do
if a[i]>R then
begin
inc(k); {увеличиваем счетчик элементов в массиве С}
c[k]:=I;
end;
for i:= 1 to K do writeln (c[i]);
readkey;
end.

goosberry
smile.gif Спасибочки good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.