Блок схема программы

[Fromer]

Задан массив действительных чисел А [1:15]. Домножить все элементы данного массива на квадрат его наименьшего элемента, если a1> = 0, и на квадрат его наибольшего элемента, если a1 <0. Вывести на экран обновленный массив.

Буду благодарен за ссылки на доп. информацию по данному вопросу

[Vanta11a]

50 рублей за .pas и 50 рублей за блок-схему, итого 100. Аська в профиле.

Если бесплатно - ищите по слову "массивы" на форуме и разбирайтесь.

[McFrey]

можешь тоже постучать в аську, договоримся)

[Fromer]

Я готов заплатить за это.... 60р.

[Mad_Cat]

{Задан массив действительных чисел А [1:15].
Домножить все элементы данного массива на квадрат его наименьшего элемента, если a1> = 0,
и на квадрат его наибольшего элемента, если a1 <0. Вывести на экран обновленный массив.}
const n=15;
var a:array[1..n] of real;
i:integer;
m:real;
begin
write('a[',1,']=');
readln(a[1]);
m:=a[1];
For i:=2 to n do
begin
write('a[',i,']=');
readln(a[i]);
if (a[1]>=0) and (a[i]<m) then m:=a[i];
if (a[1]<0) and (a[i]>m) then m:=a[i];
end;
For i:=1 to n do
begin
a[i]:=a[i]*sqr(m);
Write(a[i]:6:3);
end;
readln;
end.

[Fromer]

done done done

http://savepic.net/2311845.htm

благодарчик Vanta11a, Mad_Cat