var arr : arr2; n : integer; i, sot, spl, snu : byte; ch : char;
begin write('Хотите использовать заданный по умолчанию массив? (y/n): '); ch := readkey; writeln(ch); sot := 0; spl := 0; snu := 0; if ((ch='y') or (ch='Y')) then begin { Используем заданный по умолчанию } for i:=1 to 12 do begin if arr1[i] > 0 then inc(spl); if arr1[i] < 0 then inc(sot); if arr1[i] = 0 then inc(snu); write(arr1[i], ' '); end; writeln; end else begin { Создаём и заполняем новый массив } write('Введите желаемый размер массива: '); readln(n); setLength(arr, n); writeln('Введите элементы массива:'); for i:=0 to high(arr) do readln(arr[i]); for i:=0 to high(arr) do begin if arr[i]>0 then inc(spl); if arr[i]<0 then inc(sot); if arr[i]=0 then inc(snu); write(arr[i], ' '); end; writeln; end;
ответ в 1 задании) В этой повести девушка-дворянка, чтобы привлечь к себе внимание молодого дворянина, переодевается в крестьянскую одежду, ведёт себя и разговаривает, как крестьянка. Алексей, молодой барин, оказывается очарованным крестьянкой Акулиной, которая является дочерью соседского помещика.
Объяснение:
ответ в 2 задании)Повесть озорная и весёлая, как и главная героиня -Лиза, благовоситанная и образованная, живущая по законам помещичьего уклада жизни. Но как балованное дитя она старается обойти законы своего круга. Начитавшись романов, она жаждет приключений. Девушка представить себе не может, что жизнь сама вскоре сведёт её с Алексеем Берестовым, которого так жаждет видеть героиня. Простое любопытство, начавшееся как весёлая интрига с переодеванием в крестьянку (разыгрывает) перерастает в глубокое и сильное чувство. Молодые люди любят друг друга, но каждый видит перед собой непреодолимую преграду: Лиза робеет сознаться в содеянной шалости, а Алексей видит невозможность брака с крестьянкой. Жизнь сама всё решает за героев, им ничего не остаётся, как просить благословения родителей. Нельзя играть чувствами, это может привести к непоправимым последствиям, испортить отношения. Искренность должна быть, нельзя обманывать друг друга. Произведение открывает новый мир обогатить возвышенным чувствами .Оно является неиссякаемым кладезем, из которого можно черпать бесконечно.
program pr1;
uses
crt;
const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);
type
arr2 = array of integer;
var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;
begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;
writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.
ответ в 1 задании) В этой повести девушка-дворянка, чтобы привлечь к себе внимание молодого дворянина, переодевается в крестьянскую одежду, ведёт себя и разговаривает, как крестьянка. Алексей, молодой барин, оказывается очарованным крестьянкой Акулиной, которая является дочерью соседского помещика.
Объяснение:
ответ в 2 задании)Повесть озорная и весёлая, как и главная героиня -Лиза, благовоситанная и образованная, живущая по законам помещичьего уклада жизни. Но как балованное дитя она старается обойти законы своего круга. Начитавшись романов, она жаждет приключений. Девушка представить себе не может, что жизнь сама вскоре сведёт её с Алексеем Берестовым, которого так жаждет видеть героиня. Простое любопытство, начавшееся как весёлая интрига с переодеванием в крестьянку (разыгрывает) перерастает в глубокое и сильное чувство. Молодые люди любят друг друга, но каждый видит перед собой непреодолимую преграду: Лиза робеет сознаться в содеянной шалости, а Алексей видит невозможность брака с крестьянкой. Жизнь сама всё решает за героев, им ничего не остаётся, как просить благословения родителей. Нельзя играть чувствами, это может привести к непоправимым последствиям, испортить отношения. Искренность должна быть, нельзя обманывать друг друга. Произведение открывает новый мир обогатить возвышенным чувствами .Оно является неиссякаемым кладезем, из которого можно черпать бесконечно.