Вот:
3. Длина массива N<=20. Исходные данные задать самостоятельно.
Проверить имеется ли в данном массиве Y(10) хотя бы одна пара чисел совпадающих по величине.
7. Задана квадратная матрица A(5,5). Матрица X(5,5). Получить X1X5+X2X4+X3X3+X4X2+X5X1, где xi наибольшее значение элементов i-го столбца исходной матрицы.
Полная версия: есть ли в массиве одинаковые числа
1)
2) не понял чо делать надо
flag:=false;
i:=1;
while(i<=n-1)and not(flag) do begin
j:=i+1;
while(j<=n)and(not(flag)) do
if y[i]=y[j] then
flag:=true
else inc(j);
inc(i);
end;
if flag then writeln('Yes')
else writeln('No');
2) не понял чо делать надо
Бредово пишешь задания: 3-е ещё понятно, но в 7-ом вообще бред какой-то.
Program Aleeex00;
Uses crt;
const
n_max = 20;
var
i, j, n : integer;
Y : array [1..n_max] of integer;
Yes : boolean;
Begin
ClrScr;
Write('Введите колличество элементов массива (не больше ',n_max,'): ');
Readln(n);
For i := 1 to n do
Begin
Write('Элемент [', i, '] = ');
Readln(Y[i]);
End;
Yes := false;
For i := 1 to n-1 do
For j := i+1 to n do
Begin
if Y[i] = Y[j] then
Begin
Yes := true;
Writeln('Y[', i, '] = Y[', j, '] = ', Y[i]);
End;
End;
if not Yes then Writeln('Нет совпадений!');
ReadKey;
End.
klem4, мой вариант лучше B)
Код
Program Aleeex00;
Uses crt;
const
n_max = 20;
var
i, j, n : integer;
Y : array [1..n_max] of integer;
Yes : boolean;
Begin
ClrScr;
Write('Введите колличество элементов массива (не больше ',n_max,'): ');
Readln(n);
For i := 1 to n do
Begin
Write('Элемент [', i, '] = ');
Readln(Y[i]);
End;
Yes := false;
For i := 1 to n-1 do
For j := i+1 to n do
Begin
if Y[i] = Y[j] then
Begin
Yes := true;
Writeln('Y[', i, '] = Y[', j, '] = ', Y[i]);
End;
End;
if not Yes then Writeln('Нет совпадений!');
ReadKey;
End.
klem4, мой вариант лучше B)
в твоем варанте лишние действия, коорые не требуются в задании.
:D :D :D Да ладно, я ребячусь. :p7: :flowers:
Спасибо большое! А, что во второй и сам не знаю - такое задание дали. Ну хоть примерно попробуйте, как кто поймет! 
За нарушение правил знаешь, что бывает? И за флейм тоже...
За нарушение правил знаешь, что бывает? И за флейм тоже...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.