Лифт перевозить груз массой не более 250 кг. Если масса груза больше, то лифт не начинает движение. На первом этаже в лифт вошла Мария Григорьевна (61 кг), возвращающаяся из магазина с тяжёлой сумкой (7 кг), а также братья-близнецы Иван и Степан (по 20 кг каждый) с отцом (66 кг В последний момент в лифт забежала Даша (51 кг) со своим питомцем - тойтерьером Никой (2 кг) - и самокатом (7 кг). Какова масса всех пассажиров и другого груза? Начнет ли лифт движение вверх? Дай краткий ответ - ДА или НЕТ. ответ: масса пассажиров и груза - кг; лифе начнет движение? -

234

да

Объяснение:

отметь что это лучший ответ и поставь лайк

1)

const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  s:=0;
  for i:= 1 to n do
  begin
    readln(a[i]);
    s:=s+a[i];
  end;
 writeln('Среднее арифметическое массива = ',s/n)
 end.

2)

const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  s:=0;
  for i:= 1 to n do
  begin
    readln(a[i]);
    if a[i] mod 2 =0 then s:=s+1;
  end;
 writeln('Количество четных элементов = ',s)
 end.

3)

const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  s:=0;
  for i:= 1 to n do
  begin
    readln(a[i]);
    if i mod 2 =1 then s:=s+a[i];
  end;
 writeln('Cумма элементов с нечетными номерами = ',s)
 end.

Program a1;
Uses crt;
const n=8;
Var a:array[1..n] of integer;
ch,s:integer;
sr:real;
i:byte;
Begin
Writeln('Массив');
For i:=1 to n do
begin
a[i]:=random(101)-50;
writeln(a[i]);
end;
For i:=1 to n do
s:=s+a[i];
sr:=s/n;
For i:=1 to n do
if a[i] mod 2 = 0 then ch:=ch+1;
s:=0;
For i:=1 to n do
if i mod 2 <> 0 then s:=s+a[i];
Writeln('ответы');
Writeln('1) Среднее значение элементов массива = ', sr);
Writeln('2) Количество чётных элементов = ', ch);
Writeln('3) Сумма элементов массива с нечётными номерами = ', s);
End.