Решение школьной задачи

[Prosto_]

только я не уверен как это всё читается. вобщем линейный массив на отрезке (-190:90) A(N) надо составить новый массив B(N)=A(N)xsqr(min). помогите написать задачу только учусь програмированию.

[Rin]

Сначала в цикле пробегаешься по A(N) для поиска min
min:=a[x0];
for i:=x0 to N do
if a[i]<min then min:=a[i];
Потом в цикле обычным присваиванием выполняешь свою формулу B(N)=A(N)xsqr(min)

[Prosto_]

не мог бы полностью написать пожалуйста

[Rin]

Если опишешь раздел var со всеми переменными, которые нужны для решения, то я тебе напишу саму программу.

[Prosto_]

это всё условие которое было напиши с таким

[Rin]

Условие то я понял. Это элементарщина. Вот ты взял книгу или то, что проходили на уроке, и прочитал, что такое переменные и типы переменных, правильно? Как только ты мне напишешь, какие переменные и какого типа нужны для решения, я напишу тебе полностью рабочую программу.Кстати, какой язык программирования?

[Prosto_]

блин в турбо паскале обычная школьная тема

щас погоди 10 мин я ещё раз условие уточню

integer - целые числа из интервала [-32768, 32767];

[Prosto_]

то что те надо ?

[rUs_LAN]

нет, он хочет чтобы ты на языке паскаль описал все переменные которые нужны для решения твоей программы.

[Rin]

Кроме этого есть и другие типы данных. Ох, почитай, это интересно. Понимаю, что лень, но ломай её. Лучше сейчас , чем потом.
Красным помечено то, что я тебя просил написать. Это переменные.Зелёным помечены типы переменных.
После слова BEGIN начинается тело программы, и заканчивается словом END.

program my1;
Uses CRT;
var
n,i, min:integer;//n- количество элементов, i-счётчик,
// min-минимальный элемент в массиве
a,b:array [1..100] of integer;//два массива размером в 100 элементов
BEGIN
clrscr;// отчистка экрана
n:=101;
while n>100 do // будем выполнять цикл, пока n>100
begin// начало цикла
   writeln('BBeDuTe N');//вывод на экран 
   readln(n);// ввод значения с клаватуры в переменную n
end;//конец цикла
randomize;// включаем генератор псевдослучайных чисел
writeln('massiv A');
for i:=1 to n do
begin// начало цикла
    a[i]:=-190+random(281);// рандомно присваиваем элементу
			//массива число от -190 до 90
    write(a[i],' ');//вывод на экран значения i-того элемента массива
end;//конец цикла
writeln;// перевод каретки на другую сторку
min:=a[1];// будем считать, что min элементом является 1-ый
		//элемент массива
for i:=1 to n do
if  a[i]<min then min:=a[i]; // если i-тый элемент массива
		// меньше нашего min, то запишем в min значение
		//этого элемента
writeln('min= ',min);//выводим на экран значение min
writeln('massiv B');
for i:=1 to n do
begin// начало цикла
    b[i]:=a[i]*sqr(min);// вычисляем по формуле
		//значение i-того элемента из массива В
    write(b[i],' ');//вывод на экран значения i-того элемента массива
end;//конец цикла
readln;
END.

Если будут вопросы по коду, то задавай. Отвечу с радостью.