Решите задачу в PascalABC и составьте блок-схему, с оператора выбора CASE Вычислить следующую функцию:

Тест 1. b=3, x=3, Результат y = 4 Тест 2. b=4, x=4, Результат y = 5

Решите задачу в PascalABC и составьте блок-схему, с обработки одномерных массивов
Дан массив А(5). Определить, имеется ли между минимальным и максимальным элементами этой последовательности хотя бы одно отрицательное значение. Тест 1: А(1, -3, -2, 5, 10), результат – Да. Тест 2: А(1, 2, 3, 4, 5), результат – Нет.

Решите задачу в PascalABC и составьте блок-схему, используя цикл с параметром
Дан двумерный массив. Определить количество максимальных и минимальных элементов в массиве.

Решите

Відповідь:

Пояснення:

1/

program g;

var a: array [1..5] of integer;

   i,imax,imin, n: byte;

begin

imax:=1; imin:=1; n:=0;

writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');

for i:=1 to 5 do

   begin

   read(a[i]);

   if a[i]>a[imax] then imax:=i;

   if a[i]<a[imin] then imin:=i;

   end;

if imax < imin then

   for i:=imax+1 to imin do

       if a[i] < 0 then  n:= n+1;

if imin < imax then

   for i:=imin+1 to imax do

       if a[i] < 0 then  n:= n+1;

if n>=1 then  writeln('Äà')

       else writeln('Íåò');

readln;

end.

2.

program kol;

var a: array [1..5] of integer;

   i,max,min, n ,m: byte;

begin

max:=1; min:=1;

n := 0; m := 0;

writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');

for i:=1 to 5 do

   begin

   read(a[i]);

   if a[i]>a[max] then a[i]:= a[max];

   if a[i]<a[min] then a[i]:= a[min];

   end;

for i:=1 to 5 do

   begin

   if a[i] = a[max] then n:= n+1;

   if a[i] = a[min] then m:=m+1;

   end;

writeln('Êîëè÷åñòâî ìàêñèìàëüíûõ ýëåìåíòîâ  ', n);

writeln('Êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ  ', m);

readln;

end.