Цитата:
Сообщение от ~nezabudka~
В четвертом задании что-то не так
|
Дык опять напортачено с расстановкой операторных скобок.
Для начала:
1. Каждый блок-задание Вы заключаете в операторные скобки BEGIN-END. В принципе это не ошибка, но просто абсолютно не нужно. Для читабельности лучше воспользоваться пустыми строками.
2. Тоже не ошибка - но КАКОГО БЕСА ЛЫСОГО ВЫ НАБИВАЕТЕ ПРОГРАММУ КАПСАМИ? Это совсем не в традициях ни Паскаля, ни его прародителя Алгола-60, ни вообще Виртовских языков. Это стиль полузабытого Фортрана.
3. Всем начинающим программистам настоятельно рекомендую не пренебрегать отступами, лесенками и т.п. форматированием листинга. Это делает код намного более читабельным и позволяет избежать ошибок, на которых, в частности, Вы подрываетесь.
Вот фрагмент программы, каким он должен, с моей точки зрения, выглядеть (задание 4).
Код:
Max:=A[1];
MaxX:=1;
For i:=2 to 10 do
if A[i]>Max then
begin
Max:=A[i];
MaxX:=i;
end;
Writeln(' 4) МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ ИЗ ПЕРВЫХ 10-И РАВЕН: ',Max:4,', ЕГО НОМЕР: ',MaxX:4);
Readln
End.