Источник (человек) Приемник (человек) Источник (устройство) Приемник (человек) Источник (человек) Приемник (устройство) Источник (предмет) Приемник (человек) Источник (человек) Приемник (предмет)
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 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 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 Массив является симметричным
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 f:=i; break; end; end; if f>0 then begin for i:=N downto 1 do begin if ar[i]<0 then begin 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.
Источник (устройство) Приемник (человек)
Источник (человек) Приемник (устройство)
Источник (предмет) Приемник (человек)
Источник (человек) Приемник (предмет)