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

  1. Добрый вечер. Помогите с задачкой пожалуйста,заранее благодарен Ввести одномерный массив 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.

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

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



Похожие ответы
  1. Помогите написать программу Текущее показание электронных часов: t ч (0 ≤ т ≤ 23) n мин (0 ≤ n ≤ 59) k с (0≤ k ≤ 59). Какое время будут показывать часы через р ч q мин r с?

  1. "Собака погналась за лисицей, которая была на расстоянии 30 м от нее. Прыжок собаки равен 2 м, а прыжок лисицы – 1 м. В то время как лисица делает 3 прыжка, собака делает 2 прыжка. Какое расстояние должна пробежать собака, чтобы догнать лисицу?" помогите составить программу в Pascal ABC, заранее спасибо!!!

  1. Петя Васечкин хочет выяснить, делится ли на 7 натуральное число, состоящее не более чем из 60 цифр. Требуется написать программу, которая выполняет желание Пети и находит остаток от деления введённого числа на 7. Составьте программу,которая 1)читает натуральное число а,которое может содержать до 60 цифр 2)находит и выводит на экран остаток от деления а на 7 Примеры: Исходное число 14 Остаток 0 Исходное число 101 Остаток 3 Спасибо!

  1. Помогите с функцией past,вроде должно быть что то простое, но как только не крутил не получается

  1. Вывести на экран 1 или 0 в зависимости от того, равна сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.

  1. Составить программу на паскале, содержащую 4 подпрограммы. Дан одномерный массив, выполнить след. действия: 1) выяснить, какое число встречается раньше - положительное или отрицательное. 2) выяснить, будет-ли этот массив возрастающим 3) создать массив из четных чисел массива, если таких нет, то вывести сообщение 4)указать наименьшую длину числовой оси, содержащую все элементы массива. Буду очень признателен

  1. Задание:Pascal ABS Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE, - в противном случае (использовать условный оператор нельзя). Шахматный король за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8).

  1. Даны действительные числа x1,y1,x2,y2,...,x6,y6.Точки с координатами (x1,y1), (x2,y2), (x3,y3) рассматриваются как вершины первого треугольника, точки с координатами (x4,y4), (x5,y5), (x6,y6) - второго треугольника. Выяснить, верно ли, что первый треугольник целиком содержится во втором, и если да, определить площадь области, принадлежащей внутреннему (на рисунку область заштрихована). (Определить процедуру, позволяющую выяснить, лежат ли две точки в одной полуплоскости относительно заданной прямой, процедуру вычисления расстояния между двумя точками, а также процедуру вычичника по трем сторонам.)

  1. Дано действительное число h. Выяснить, имеет ли уравнение ax2 + bx + c = 0 действительные корни, если: