Алгоритм: выставляем некий индикатор = 0 идем по массиву если находим элемент больше 7, выставляем индикатор = 1, прекращаем просмотр массива, выводим номер элемента. Если дошли до последнего элемента и все меньше 7 (индикатор = 0), выводим соответствующее сообщение.
Прога: program test1; var M1: array [1..60] of integer; ind, i: integer;
begin ind :=0; i := 1; repeat if M1[i]>7 then begin writeln(i); ind := 1; i := 60; end; inc(i); if ((i>60) and (ind=0)) begin writeln('массив не содержит элементов, больших 7'); ind := 1; end; until(ind=1); end;
использовать Чертежник
алг
нач
поднять перо
сместиться на вектор (-9,0) |начальная позиция
опустить перо |0
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (2,0)
сместиться на вектор (0,1) |1
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
сместиться на вектор (0,2) |2
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,0)
опустить перо |3
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,-2)
сместиться на вектор (0,2) |4
опустить перо
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |5
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
опустить перо |6
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (0,2)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
сместиться на вектор (0,2) |7
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |8
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо |9
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-1)
кон