Генетическая информация у всех живых существ кодируется в молекулах ДНК. Молекула ДНК представляет собой линейную последовательность четырех основных нуклеотидов: А,
G, C и Т. Геном человека содержит приблизительно 3 миллиарда нуклеотидов в форме 100
000 генов. Какова общая информационная емкость человеческого генома (в битах)? Какова
средняя информационная емкость гена (в битах)?

Ну если просто вопрос-ответ

var a: integer;

b: string;

begin

write('ваш возраст - ');

readln(a);

write('твоё самое любимое увлечение - ');

readln(b);

...

и так далее спрашиваешь командой "write('вопрос')", а для ответа команда "readln(d)", где d - это переменная, перед тем как её написать туда, надо её объявить после команды "var" через запятую. Если ответом будет текст, то писать перед "string", если натуральное число, то перед "integer", если целое число, то перед "real"

(например

var a, b, c: integer;

d, e, f: string;

g, h: real;)

...

end.

ответ:  добавил <limits.h>, хотя на Visual С++ у меня без этого работало, и условие && a != 0 (что то не везёт мне с этой задачей)

#include <iostream>

#include <limits.h>

using namespace std;

int main()

{

 int a, i, imin, amin;

 setlocale(LC_ALL, "Russian");

 cout << "Введите числа: ";

 i = 0;

 amin = INT_MAX;

 imin = 0;

 do {

   i++;

   cin >> a;

   if (a < amin && a != 0) {

     amin = a;

     imin = i;

   }

 } while (a != 0);

 if (i > 1)

   cout << "\n№ минимального элемента = " << imin << endl;

 else

   cout << "\nПоследовательность пустая" << endl;

 getchar();

}