begin Randomize; Writeln('Элементы массива'); i := n; for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4); end; Writeln; while (i >= 1) and (x[i] >= 0) do i := i - 1; if i > 0 then Writeln('Последний отрицательный элемент x[', i, ']=', x[i]) else Writeln('Нет отрицательных элементов') end.
Тестовое решение: Элементы массива 5 -9 -32 -48 33 2 -41 24 31 -31 -48 -24 -17 45 -41 -23 -1 38 45 14 Последний отрицательный элемент x[17]=-1
Презентация - это форма представления информации как с разнообразных технических средств, так и без них. Как правило, представляются новые проекты, товары, услуги, идеи и т.п. В целом задача презентации – сделать так, чтобы ее объект заинтересовал аудиторию. Для этого составляется сценарий презентации, в соответствии с которым подбираются: компьютерная графика, видеоряд, раздаточный материал, цветовое и звуковое оформление и другие средства. Чем ярче, интереснее и необычнее презентация, тем лучше.
n = 20;
var
x: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
i := n;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
end;
Writeln;
while (i >= 1) and (x[i] >= 0) do i := i - 1;
if i > 0 then
Writeln('Последний отрицательный элемент x[', i, ']=', x[i])
else
Writeln('Нет отрицательных элементов')
end.
Тестовое решение:
Элементы массива
5 -9 -32 -48 33 2 -41 24 31 -31 -48 -24 -17 45 -41 -23 -1 38 45 14
Последний отрицательный элемент x[17]=-1