Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива

@Qwer345 · Регистрация: 21.11.2012

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

Помогите пожалуйста с задачей=)
Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива.
При соблюдении следующих условий:
Программа должна создавать одномерный массив случайных чисел из 20 элементов величиной от -25 до +25, используя команду randomize

@Puporev · 22.11.2012, 19:34

Pascal

uses crt;
const nmax=500;
var a:array[1..nmax] of integer;
    n,i:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until (n>1)and(n<=nmax);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(51);
  write(a[i]:4);
 end;
writeln;
f:=false;
i:=1;
while(i<=n div 2)and not f do
if a[i]=a[n-i+1] then f:=true
else i:=i+1;
if f then write('В массиве есть одинаковые равноудаленные числа')
else write('В массиве нет одинаковых равноудаленных чисел');
readln
end.

@Qwer345 · 23.11.2012, 17:08 **[ТС]**

программа не корректно работает, когда вводишь данные программа выдает "В массиве нет одинаковых равноудаленных чисел" хотя они есть. Можно будет это исправить ?

@Qwer345 0 / 0 / 0 Регистрация: 21.11.2012 Сообщений: 7
		1
	Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива 22.11.2012, 19:20. Показов 1630. Ответов 2 Метки нет (Все метки) Помогите пожалуйста с задачей=) Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива. При соблюдении следующих условий: Программа должна создавать одномерный массив случайных чисел из 20 элементов величиной от -25 до +25, используя команду randomize 0

@Qwer345 0 / 0 / 0 Регистрация: 21.11.2012 Сообщений: 7
	23.11.2012, 17:08 [ТС]	3
	программа не корректно работает, когда вводишь данные программа выдает "В массиве нет одинаковых равноудаленных чисел" хотя они есть. Можно будет это исправить ? 0

Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива

Решение