Цитата:
Сообщение от Станислава
Жаль нету раздела "Помощи школьникам"....
|
Ничего, мы тут не различаем школьников, студентов, аспирантов, профессоров и академиков - всех милости просим!
Цитата:
Сообщение от Станислава
Не могу правильно составить блок-схему.
|
Эх, да если бы блок-схему... Ваша программа содержит чудовищное количество ошибок! Это что угодно, только не Паскаль. Извините, но разбирать каждую ошибку не буду, Вы уж сами, просто приведу правильный листинг:
Код:
Program Max_Min_of_5;
var
A:array[1..5] of integer;
i,max,min:integer;
Begin
for i:=1 to 5 do
begin
write('A[',i,']= ');
readln(A[i]);
end;
max:=A[1];
min:=A[1];
for i:=2 to 5 do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln('max= ',max);
writeln('min= ',min);
readln;
End.
Особое внимание - на тип скобок: при введении диапазона массива (напр. [1..5]) и работе с его элементами (напр. A[3]) допустимы ТОЛЬКО квадратные скобки! Но это не всё - там еще ошибки в цикле, в операторе for..to..do и т.п. Мой Вам совет: при написании программы - крайняя внимательность и точность. Компьютер не воспринимает "общих соображений". Успехов!