Пожалуйста!! Паскаль. Дан целочисленный массив из 60 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите алгоритм, позволяющий найти и вывести номер первого элемента массива, который больше, чем 7. Е...
Пожалуйста!! Паскаль.
Дан целочисленный массив из 60 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите алгоритм, позволяющий найти и вывести номер первого элемента массива, который больше, чем 7. Если таких элементов нет, программа должна вывести сообщение об этом.
Гость
Ответ(ы) на вопрос:
ГостьАлгоритм:
выставляем некий индикатор = 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;
Не нашли ответ?
Похожие вопросы