Решите задачу в 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.