21.09.2012, 11:51 | #1 (permalink) |
Новичок
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Массив
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. Жаль нету раздела "Помощи школьникам".... Не могу правильно составить блок-схему. Помогите пожалуйста... |
21.09.2012, 11:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что вам не помешало бы просмотреть схожие темы Паскаль. Двумерный массив Паскаль. Матрица. Массив Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Массив, Паскаль Массив, Паскаль Паскаль, массив |
21.09.2012, 12:25 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ничего, мы тут не различаем школьников, студентов, аспирантов, профессоров и академиков - всех милости просим!Эх, да если бы блок-схему... Ваша программа содержит чудовищное количество ошибок! Это что угодно, только не Паскаль. Извините, но разбирать каждую ошибку не буду, Вы уж сами, просто приведу правильный листинг:
Код:
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. |
21.09.2012, 19:08 | #5 (permalink) |
Новичок
Регистрация: 19.09.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
у меня тоже получилась такая блок-схема. Преподаватель сказал, что в одной из составленых мной схем ошибка. А я сразу подумала что эта задача неверная....
Спасибо за помощь. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
блок-схема, массивы, паскаль, школьная задача |
Опции темы | |
Опции просмотра | |
|
|