Паскаль. Массив

[Станислава]

Паскаль. Массив

Program Max_Min_of_5;
var A:array(1..5) of integer;
i, max, min:integer;
Begin
for i:=1 to 5 begin
writeln('',,':');
read(A(i));
end;
max:=A(1);
min:=A(1);
for i:=2 to 5 do begin
if A(1)>max then max:=A(1);
if A(1)<min then min:=A(1);
end;
writeln('=',);
writeln('=',);
End.
Жаль нету раздела "Помощи школьникам"....
Не могу правильно составить блок-схему.
Помогите пожалуйста...

 

[Артём]

Не могу правильно составить блок-схему.

А вы вообще пытались? Покажите свой вариант решения.

 

[Vladimir_S]

Жаль нету раздела "Помощи школьникам"....

Ничего, мы тут не различаем школьников, студентов, аспирантов, профессоров и академиков - всех милости просим!

Не могу правильно составить блок-схему.

Эх, да если бы блок-схему... Ваша программа содержит чудовищное количество ошибок! Это что угодно, только не Паскаль. Извините, но разбирать каждую ошибку не буду, Вы уж сами, просто приведу правильный листинг:

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 и т.п. Мой Вам совет: при написании программы - крайняя внимательность и точность. Компьютер не воспринимает "общих соображений". Успехов!

 

[Léon1]

Блок-схема:

 

[Станислава]

у меня тоже получилась такая блок-схема. Преподаватель сказал, что в одной из составленых мной схем ошибка. А я сразу подумала что эта задача неверная....
Спасибо за помощь.