Вот две еквивалентные диаграмы, проще вторая, но если вам нельзя использовать многочисленое условие (в данном случаи двойное), то лучше выберете первый вариант :)
Спасибо за отметку "Лучшый ответ" и нажатую кнопочку "Спасибо" (:
Я еще не студент!!!Понимаете мне еще 12 то нет!!!А баллы заработать хочется.
Если чисел 7, то самое наименьшие 1. А если там 7 разных чисел, то из следовало написать.
Var
a:array[1..10] of integer;
i,c:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,' - ый элемент массива ');
readln(a[i]);
End;
Write('Индексы элементов, больших 5 - (');
for i:= 1 to 10 do
if a[i]>5 then Begin
write(i,' '); c:=1;
end;
if c=0 then write('Таких нет)') else write(')');
end.
1) текстовые файлы 2) графические файлы