Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.
Если Д =134 то код у символа А=13 ЛОГИКА!!
N i K
8 3 200*3=600
16 4 110*4=440
64 6 120*6=720
128 7 100*7=700
256 8 80*8=640
<span>program calc;</span>
<span>uses crt;</span>
<span>label metka;</span>
<span>var a,b,sum:real;</span>
<span>symbol1,symbol2,symbol3:char;</span>
<span>begin</span>
<span>clrscr;</span>
<span>writeln;</span>
<span>writeln('vvedite deystvie 4ere3 probel naprimer 4 - 2');</span>
<span>writeln;</span>
<span>writeln;</span>
<span>metka: readln(a,symbol1,symbol2,symbol3,b) ;</span>
<span>writeln;</span>
<span>case symbol2 of</span>
<span>'+':sum:=a+b;</span>
<span>'-':sum:=a-b;</span>
<span>'*':sum:=a*b;</span>
<span>'/':sum:=a/b;</span>
<span>else</span>
<span>begin</span>
<span>writeln('nekorrektno vvedeno deystvie, vvedite pravilno');</span>
<span>goto metka;</span>
<span>end;</span>
<span>end;</span>
<span>writeln('otvet:',sum:6:2,'.');</span>
<span>writeln;</span>
<span>writeln('************************** ********** ****************************');</span>
<span>readln;</span>
<span>end.</span>