| 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
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
