Написать 2 программы:1. Проверить, есть ли в массиве отрицательные элементы. Если есть,...

Question

Дано ответов: 2

Правильный ответ

Const
n = 10;

var
a: array[1..n] of integer;
i, p, q: integer;
flag: boolean;

begin
{1. Инициализируем массив}
Randomize;
Write('Элементы массива: ');
for i := 1 to n do
begin
    a[i] := Random(101) - 50;
    Write(a[i]:5)
end;
Writeln;
{2. проверяем элементы массива на наличие отрицательных значений}
flag := true;
i := 1;
{2.1 Ищем первое по порядку отрицательное }
while flag and (i <= n) do<br> begin
    flag := (a[i] >= 0);
    i := i + 1
end;
if flag then Writeln('В массиве нет отрицательных элементов')
else begin
    p := i - 1;
    {2.1 Ищем последнее по порядку отрицательное }
    i := n;
    flag := true;
    while flag and (i > p) do
    begin
      flag := (a[i] >= 0);
      i := i - 1
    end;
    if flag then Writeln('В массиве один отрицательный элемент с номером ', p)
    else
      Writeln('Отрицательные элементы лежат в промежутко от ', p, ' до ', i + 1)
end
end.

Тестовое решение:

Элементы массива:    17 -45 -29 -30   32 -12   29 -39   20    6
Отрицательные элементы лежат в промежутке от 2 до 8

const
nm = 50;{максимальная длина массива}

var
i, n, n2: integer;
a: array[1..nm] of integer;
flag: boolean;

begin
{ 1. Инициализация массива }
Write('Введите количество элементов в массиве: ');
Readln(n);
Write('Введите элементы массива через пробел ');
for i := 1 to n do Read(a[i]);
{ 2. Проверка симметричности массива }
flag := true;
i := 1;
n2 := n div 2;
while flag and (i <= n2) do<br> begin
    flag := (a[i] = a[n - i + 1]);
    i := i + 1
end;
if flag then Writeln('Массив является симметричным')
else Writeln('Массив не является симметричным')
end.

Тестовое решение:

Введите количество элементов в массиве: 8
Введите элементы массива через пробел 1 7 3 4 4 2 7 1
Массив не является симметричным

Введите количество элементов в массиве: 7
Введите элементы массива через пробел 8 4 9 1 9 4 8
Массив является симметричным

Alviko_zn (142k баллов) 20 Март, 18

FaikYB_zn · Answer 1 · 2018-03-20T19:41:43+0000

Program z1;
var ar: array of integer;
f, l, i, N: integer;
begin
readln(N);
setlength(ar, N+1);
for i:=1 to N do read(ar[i]);
f:=-1;
for i:=1 to N do begin
if ar[i]<0 then begin <br>f:=i;
break;
end;
end;
if f>0 then begin
for i:=N downto 1 do begin
if ar[i]<0 then begin <br>l:=i;
break;
end;
end;
write(f,' ', l);
end
else write('No');
end.

program z2;
var ar: array of integer;
i, N: integer;
otv: boolean;
begin
readln(N);
setlength(ar, N+1);
for i:=1 to N do read(ar[i]);
for i:=1 to N div 2+1 do begin
if ar[i]<>ar[N-i+1] then begin otv:=true; break; end;
end;
if otv=true then write('No')
else write('Yes');end.

FaikYB_zn (915 баллов) 20 Март, 18