Задача в паскале абс, на одномерные массивы. Если хотя бы один элемент одномерного массива отрицательный, то вывести сообщение «ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ», иначе «ВСЕ ПОЛОЖИТЕЛЬНЫЕ».
var ar:array[1..10] of integer; max,min,i,kmax,kmin:integer; begin randomize;
max:=0; min:=1000;
for i:=1 to 10 do begin ar[i]:=random(1000)+1; if (ar[i] > max) then begin max:=ar[i]; kmax:=i; end else if (ar[i] < min) then begin min:=ar[i]; kmin:=i; end; write(ar[i],' '); end;
writeln();
if (kmax > kmin) then for i:=kmin+1 to kmax-1 do write(i,' ') else if (kmax < kmin) then for i:=kmax+1 to kmin-1 do write(i,' '); end.
Питаются кагуаны исключительно растительной пищей — листвой, почками, цветами и деревьев. большую часть рациона составляют молодые листья. редко вокруг какого животного ведется столько споров, как вокруг кагуанов. это животное, размером с кошку, одни причисляют к «летающим» землеройкам, другие к лемурам, а некоторые выделяют когуана вообще в отдельный отряд. внешне, особенно мордочкой, он действительно похож на лемура, а вот зубы типичны для грызунов. самая же отличительная черта когуана – перепонка, с которой он летает. перепонка натянута от подбородка через концы лап до кончика не длинного хвоста и представляет собой этакий парашют. кстати, парашют у кагуаны самый большой среди «летающих» животных (кроме птиц и летающих мышей к полетам причастны белки-летяги, сумчатые летяги, обезьяны колобус, летающие ящерицы или драконы, а также летающие лягушки и даже рыбы)
var a: array of integer;
n: integer;
begin
write('Введите размер массива: ');
readln(n);
SetLength(a, n);
for var i:=0 to n-1 do
begin
a[i] := random(-2, 30);
write(a[i], ' ');
end;
writeln();
var answer := 'ВСЕ ПОЛОЖИТЕЛЬНЫЕ';
for var i:=0 to n-1 do
begin
if a[i] < 0 then
begin
answer := 'ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ';
break;
end;
end;
writeln(answer);
end.