Duz-Two_O | Дата: Среда, 18.12.2013, 17:05 | Сообщение # 1 |
Рядовой
Группа: Пользователи
Сообщений: 3
Статус: Offline
| Помогите, на этот раз прочитал правила) var a : array [1..20] of integer; min , max : integer; begin for i:=1 to 20 do readln(a[i]); min:=a[1];max:=0; for i:=2 to 20 do if (a[i]<min) then min:=a[i] else if (a[i]>max) max:=a[i]; end.
|
|
| |
diamFC | Дата: Среда, 18.12.2013, 17:54 | Сообщение # 2 |
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Ваша блок-схема У вас в программе в предпоследней строке отсутствует слово THEN
|
|
| |