Соедини стрелками средства управления и виды инфор- мации: Устройство для подачи сигнала автомобиля, - id1830423920230518 от красава005 18.05.2023 22:17

Question

Информатика: Соедини стрелками средства управления и виды инфор- мации: Устройство для подачи сигнала автомобиля, Доски объявлений, Барабан, Указатель, Звуковая, информация, Светофор, Световое табло, Жезл регулировщика, Зрительная, информация, Разметка на дороге, Свисток, Дорожный знак, Колокол.​

красава005 · Accepted Answer

Const
n=10;
var
a:array[1..n] of integer;
i,kp,sn: integer;

begin
Randomize;
Writeln('Элементы массива');
kp:=0; sn:=0;
for i:=1 to n do
begin
    a[i]:= Random(31)-10;
    Write(a[i]:4);
    if a[i]>0 then Inc(kp);
    if (i mod 2)<>0 then sn:=sn+a[i]
end;
Writeln;
Writeln('Количество положительных элементов: ',kp);
Writeln('Сумма элементов на нечетных местах: ',sn);
Writeln('Элементы массива после замены');
for i:=1 to n do
begin
    if a[i]<10 then a[i]:=10;
    Write(a[i]:4)
end;
Writeln
end.

Тестовое решение:
Элементы массива
10 11 -4 11 12 13 -1 -2 -8   7
Количество положительных элементов: 6
Сумма элементов на нечетных местах: 9
Элементы массива после замены
10 11 10 11 12 13 10 10 10 10

MOGZ ответил