Delphi. две задачи!

[St1mkA]

1.Даны четыре числа. Определить минимальное из них.
1.Дан одномерный массив. Найти номер последнего элемента масива, меньшего 3.

[Levsha100]

Наработки?
Язык программирования?
2)

...
const 
  n=5;
var
  A:Array[1..n] of integer;
  i:integer;
begin
...
 for i:=1 to n do
   ReadLn(A[i]);
 for i:=n downto 1 do
   if A[i]<3 then break;  
 WriteLn(i);

[Sparky]

ну это клиника если они для вас сложные.
2.

program ex;
var
   a:array[1..10] of integer;
   i,res:integer;
begin
     for i:=1 to 10 do
         read(a[i]);
     for i:=1 to 10 do
         if a[i]<3 then res:=i;
     writeln(res);
end.

[Levsha100]

Sparky, Ваш код немного не эффективен

[Sparky]

я знаю, просто пишу для человека который видно далек от этого

[Deamonig]

1.

...
if (a>=b)and(a>=c)and(a>=d) then
max:=a;
if if (b>=a)and(b>=c)and(b>=d) then
max:=b;
if (c>=a)and(c>=b)and(c>=d) then
max:=c;
if (d>=a)and(d>=c)and(d>=b) then
max:=b;
...

2.

const n=1000;
var a:array[1..1000] of integer;
i,k:integer;
begin
....
for i:=1 to n do
if a[i]<3 then
k:=i;
...
end;

[St1mkA]

))Спасибо, а в delphi таким кодом записывать? а то у меня чет не получается...

[Sparky]

в делфи созаете консольное приложение и туда все начиная с var после uses
SysUtils;

[St1mkA]

БОЛЬШОЕ СПАСИБО!!

[Sparky]

кликни всем весы