Ипишіть із поданих речень слова пасивної лексики і зазначте, до якої групи вони належать (діалектизми, - id1427412820230420 от Dania243205 20.04.2023 01:12

Question

Информатика: Ипишіть із поданих речень слова пасивної лексики і зазначте, до якої групи вони належать (діалектизми, архаїзми, історизми, неологізми) На голові Кайдашихи був високий очіпок. Івана Дідуха запам’ятали в селі ґаздою. І стежив я, і я веснів: Акордились планети. Рученьки білі лягли на рамена мені. Сонце малює по нім маленькі фосфоричні звізди. Для кіномейкера немає нічого кращого, ніж створити крутий фільм. Сивий оселедець розсипався козакові перед очима. Придорожнє зілля і бадилля гойдалося, вихолітувалося

Dania243205 · Accepted Answer

Const
n = 15;

var
a:array[1..n] of integer;
i,sp,sn: integer;

begin
Randomize;
Writeln('Элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
end;
Writeln;
Writeln('Частное: ',sp/abs(sn))
end.

Тестовое решение:
Элементы массива
   2 -25   0   5 24   4   3   1 12 13 10   1   6 13 -17
Частное: 2.23809523809524

Вариант со вводом данных с клавиатуры:
const
n = 15;

var
a:array[1..n] of integer;
i,sp,sn: integer;

begin
Writeln('Вводите через пробел элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
    Read(a[i]);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
end;
Writeln('Частное: ',sp/abs(sn))
end.

MOGZ ответил