var b: array of real;
i,n,ll: integer;
max,min,a: real;
begin
write('Введите длину массива: ');
readln(n);
write('Введите число a: ');
readln(a);
setlength(b,n);
writeln('Массив B: ');
for i:=0 to n-1 do
begin
b[i]:=random(3*n);
write(b[i],' ');
end;
writeln;
min:=b[0];
max:=a;
for i:=0 to n-1 do
if min>b[i] then min:=b[i]
else if max<b[i] then begin
max:=b[i];
ll:=i;
end;
writeln('Наименьший элемент массива - ',min);
writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');
end.
Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки
#include <stdio.h>
#include <math.h>
#include <locale.h>
int main()
{
setlocale(LC_ALL, "rus");
int i, god, obl1, obl2, z, itog;
obl1 = 100000;
obl2 = 200000;
printf("Введите сколько лет происходит модернизация:\n");
scanf_s("%i", &god);
for (i = 1; i < god; i++)
{
if (obl2 > obl1)
{
z = obl1 + obl2;
obl1 = z;
}
else
{
z = obl1 + obl2;
obl2 = z;
}
itog = obl1 + obl2;
}
if (obl2 > obl1)
{
printf("Наибольший доход у второй области: %2d сентиннеалей\n", obl2);
}
else
{
printf("Наибольший доход у первой области: %2d сентиннеалей\n", obl1);
}
printf("Общий доход за %2d лет : %2d сентиннеалей\n", god, itog);
getchar(); getchar();
}
Прикрепил пару тестов и саму программу, если интересно