Дан одномерный массив m состоящий из 12 целых чисел. Организоватьввод массива

Дан одномерный массив m состоящий из 12 целых чисел. Организовать
ввод массива случайным образом и отыскать:
1) количество нулевых частей;
2) сумму частей наименьших 1

Задать свой вопрос
1 ответ
Const  n = 12;
var  m :array [1..n] of integer;  i, kol, sum :integer;
begin
  randomize;  for i:= 1 to n do    m[i]:= random(100)-50;    sum:= 0; kol:= 0;  for i:= 1 to n do  begin    if m[i] = 0 then      inc(kol);    if m[i] lt; 1 then      sum:= sum + m[i];  end;  writeln('Количество нулевых частей: ',kol);  writeln('Сумма частей, наименьших 1: ',sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт