определить есть ли в заштрихованной части массива элемент, равный а ( Первый рисунок)
5-9 класс
|
const
n=5;
var
mas: array [1..n, 1..n] of integer;
i,j, eI, eJ: byte;
a: integer;
poisk: boolean;
begin
poisk:=false;
Randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
mas[i, j] := Random(100);
write(mas[i, j]:5);
end;
writeln;
end;
write('A = ');
readln(a);
for j:=1 to n do
for i:=n downto j do
if mas[i, j] = a then
begin
eI:=i;
eJ:=j;
poisk:=true;
break;
end;
if poisk then writeln('YES, mas[', eI, ', ', eJ, '] = a = ', mas[eI, eJ])
else writeln('NO');
end.
Другие вопросы из категории
если считать, что один символ кодируется одним байтом и на каждой странице в среднем 96 символов?
Читайте также
2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
*Дан массив А целых чисел, состоящий из 20 элементов. Заполнить с клавиатуры.
1) Создать новый массив В, каждый элемент которого равен корню квадратному элемента массива А.
2)Найти сумму элементов массива с 11 по 15.
3) Найти элемент массива кратный 8 и его индекс.
4)Найти удвоенную сумму положительных элементов.
5)Вывести индексы тех элементов, значения которых больше значения предыдущего элемента( начиная со второго).
6) Определить, есть ли 2 пары соседних элементов с одинаковыми знаками.
7)Найти количество положительных элементов.
8)Вычесть из положительных элементов элемент с номером 2, а к отрицательным прибавить элемент с номером 4.
9) Удалить из таблицы все элементы массива, кратные 3 или 5.
10) Поменять местами второй элемент массива и первый чётный.
Помогите пожалуйста. Срочно нужно)