1) var a: array [1..100] of longint; i,j,k,n:longint; begin readln(n); for i:=1 to n do readln(a[i]); k:=a[1]; j:=1; for i:=1 to n do if a[i]<k then begin k:=a[i]; j:=i; end; writeln(k, ' ',j); end.
Uses crt; const N=10; var a:array [1..N] of integer; x,y,min:integer; begin for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); end; min:=a[1]; y:=1; for x:=1 to N do if a[x]<min then begin min:=a[x]; y:=x; end; writeln('min[',y,']:',min); end.
Рекомендуется использовать формулу мальтуса, изменения числа рыб n= k*n-q*n*n если за начальное количество рыб принять n0,то через год рыб в пруду будет n1=n0+k*n0-q*n0*n0,через два года n2=n1+k*n1-q*n1*n1 в таблице excel в ячейку a1 введите значение к=1,в ячейку b1 значение q=0,01,в ячейку с1 значение n0=100, в ячейку в2 формулу =c1+a1*c1-b1*c1*c1 (это количество рыб за 1 год) , в ячейку в3 формулу =b2+$a$1*b2-$b$1*b2*b2(количество рыб за 2 год) , скопируйте формулу с ячейки в3 до ячейки в11. изменяйте значение ячейки а1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.
Пошаговая детализацияпредставляет собой простой процесс, предполагающий первоначальное выражение логики модуля в терминах гипотетического (условного) языка высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнут уровень используемого языка программирования. здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. можно считать языком самого высокого уровня обычную человеческую речь, а языком низкого уровня — машинный язык.
var
a: array [1..100] of longint;
i,j,k,n:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
k:=a[1]; j:=1;
for i:=1 to n do
if a[i]<k then begin k:=a[i]; j:=i; end;
writeln(k, ' ',j);
end.