контрольная работа

[Rustem5]

С помощью генератора случайных чисел задается последовательность из N целых чисел A,B,C из диапазона (-N;N). Получить новую последовательность N целых чисел Z=min(A^2, max(B,C))


помогите плиз) срочно надо)

[Stilet]

Функция min может выглядеть так:

 function min(a,b:integer);begin if a<b then min:=a else min:=b;end;

А теперь ее в цикл вгони на ту последовательность

[Rustem5]

может кто полностью сделает а плиз помогите)))
это допуск мой)

[Stilet]

задается последовательность из N целых чисел A,B,C

Вот ты когда пояснишь эту загогулистую фразу, может тогда кто-нибудь и поймет что тебе нужно.

[Rustem5]

N это наверно количество
A,B,C а это типо сами числа какие то)
я незнаю как это объяснить)

[Rustem5]

function maxx(x,y:integer):integer;
begin
if x>y then
maxx:=x
else
maxx:=y;
end;

function minn(x1,y1:integer):integer;
begin
if x1<y1 then
minn:=x1
else
minn:=y1;
end;
доделайти плиз до конаца)))
тут две функции сделано уже))

[.Phoenix]

задается последовательность из N целых чисел A,B,C...

Здесь немного точнее вырази свою мысль. Не понятно чего ты хочешь. Может ты условия задачи криво прочёл?

[Serge_Bliznykov]

я, имхо, понял задачу.
в данной трактовке последовательность == одномерный массив
Есть три набора данных (одномерных массива) A, B, C
Размерность каждого массива N

нужно получить новый массив Z:

for i:=1 to N do
  Z[i] := min(sqr(A[i]), max(B[i],C[i]));

[Rustem5]

Сообщение от Serge_Bliznykov

я, имхо, понял задачу.
в данной трактовке последовательность == одномерный массив
Есть три набора данных (одномерных массива) A, B, C
Размерность каждого массива N

нужно получить новый массив Z:

for i:=1 to N do
  Z[i] := min(sqr(A[i]), max(B[i],C[i]));

а теперь напиши всю программу плиз))))
очень надо) я просто сам незнаю ваще как и че)

[Serge_Bliznykov]

const N = 10;
var A,B,C,Z : array[1..N] of integer;
   i : integer;

function maxx(x,y:integer):integer;
begin
  if x>y then maxx:=x
           else maxx:=y;
end;

function minn(x,y:integer):integer;
begin
  if x<y then minn:=x
            else  minn:=y;
end;

begin
  Randomize;
  for i:=1 to N do begin
    A[i] := random(2*N+1) - N;
    B[i] := random(2*N+1) - N;
    C[i] := random(2*N+1) - N;
  end;

  {сделать вывод массивов A,B,C на экран}

  {заполнение массива Z}
  for i:=1 to N do
    Z[i] := minn(sqr(A[i]), maxx(B[i],C[i]));

  {вывод массив Z на экран}
   WriteLn(' ----- Massiv Z ----- ');
   for i:=1 to N do
     Write(Z[i]:1,' ');
   WriteLn('----------------');

   readln;
end.