Var
a:array[1..1000] of integer;
n, i, suma:integer;
begin
write('введите количество чисел массива ');
readln(n);
suma:=0;
for i:=1 to n do
begin
a[i]:=random(101)-70;
if(a[i]<0) then
suma:=suma+a[i];
end;
write('массив ');
for i:=1 to (n-1) do
write(a[i],', ');
writeln(a[n],' ');
writeln('сумма отрицательных элементов ',abs(suma));
end.
1. Подошёл к переходу
2. Если красный свет то стоишь и ждёшь зелёного
3. При зелёном свете смотришь по сторонам, если нет машин, то идёшь.
4. Доходя до середины ещё раз осмотрись
5. Если всё чисто, продолжай путь
А := Массив случайных чисел(их количество = N)
Б := A[0]
цикл i (от 1 до N):
если остаток от деления A[i] на 2 (вроде - mod в паскале) = 0 то:
если A[i]< Б то:
Б := A[i]
Вывод(Б)
<span>"мклкмнонопрост" - 14 символов
Нужно умножить 14 * x
x - размер одного символа. Должен быть указан в задаче</span>