uses crt; var n,i,a,mn, k:integer; begin write('n='); readln(n); writeln('Введите ',n,' целых чисел'); k:=0; i:=1; while i<=n do begin readln(a); if i=1 then begin mn:=a; k:=1 end else if a<mn then begin mn:=a; k:=i end; i:=i+1 end; write('Минимальный элемент=',mn,' его номер=',k); end.
type animal=record ani:string; name:string; yearOfBrith:integer; weight:real; food:real; country:string; end;
Const n=10; Var zoo:array[1..n] of animal; i,counter:integer; coun:string; begin for i:=1 to n do begin writeln('Данные о животном #',i); readln(zoo[i].ani); readln(zoo[i].name); readln(zoo[i].yearOfBrith); readln(zoo[i].weight); readln(zoo[i].food); readln(zoo[i].country); end; write('Введите страну:'); readln(coun); for i:=1 to n do if zoo[i].country=coun then inc(counter); writeln(counter); writeln('Таблица норм пищи:'); for i:=1 to n do writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food); writeln('Список животных, возраст которых больше 10 '); for i:=1 to n do if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name); end.
{1} var n: integer; begin write ('Введите заработанную сумму: '); readln (n); write ('Вы получите: ', (n*0.77)*0.61) end.
{2} var a: array of double; n, i: byte; sum: longint; begin write ('Введите кол-во дробных чисел: '); readln (n); setLength (a, n); for i:=0 to n-1 do begin write ('Введите ', i+1, ' число: '); readln (a[i]); end; for i:=0 to n-1 do begin writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i])); inc (sum, trunc(a[i])); end; write ('Сумма целых частей: ', sum); end.
{3} var a, b, c, p: double; begin write ('Введите стороны треугольника: '); readln (a, b, c); if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then write ('Такой треугольник не существует') else begin p:=(a+b+c)/2; write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' ); end; end.
var n,i,a,mn,
k:integer;
begin write('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
k:=0;
i:=1;
while i<=n do
begin
readln(a);
if i=1 then
begin mn:=a;
k:=1
end
else
if a<mn then
begin
mn:=a;
k:=i
end;
i:=i+1
end;
write('Минимальный элемент=',mn,' его номер=',k); end.