Выяснить, какое число в массиве встретится ранее – положительное или отрицательное - Pascal ABC

Формулировка задачи:

Добрый вечер. Помогите с задачкой пожалуйста,заранее благодарен Ввести одномерный массив A, вывести его. Выяснить, какое число в массиве встретится ранее – положительное или отрицательное (нули не рассматривать). Если положительное – найти в массиве максимальный элемент и возвести его в квадрат, если отрицательное – возвести в квадрат минимальный элемент.


textual

Код к задаче: «Выяснить, какое число в массиве встретится ранее – положительное или отрицательное - Pascal ABC»

program a1;
var a: array[1..15] of integer;
    min,max,o,i:integer;
begin 
randomize;
for i:=1 to 15 do 
    begin
   a[i]:=-100+random(200);
   write(a[i]:3);
   end;
   writeln;
   min:=a[1];
   if a[1]<0 then begin 
                  writeln('первый элемент отрицательный');
                  for i:=1 to 15 do  if min>a[i] then min:=a[i];
                  o:=min*min;
                  write('min=',min,';min^2=',o);                  
                  end
             else begin 
                  writeln('первый элемент положительный;');
                  for i:=1 to 15 do if max<a[i] then max:=a[i];
                  o:=max*max;
                  write('max=',max,';max^2=',o);
                  end;
                  writeln;
 
 
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.700 из 5

Источник