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

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

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

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

@bushuev · 23.11.2012, 00:23

Pascal

const n=6;
var a:array[1..n] of integer;
i,j:integer;
f:boolean;
begin
f:=false;
randomize;
for i:=1 to n do
a[i]:=random(50)-25;
for j:=1 to n-1 do
if (a[j+1]=a[n-j]) then
f:=true;
if f=true then writeln('Есть одинаковые равноудаленные элементы!');
write(' Массив:  ');
for i:=1 to n do
write(' ',a[i]);
end.

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

	23.11.2012, 00:23

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

Решение