Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Нюхалз
0 / 0 / 0
Регистрация: 30.01.2017
Сообщений: 1
#1

Пусть сгенерируется 10 случайных чисел в диапозоне от -10 до +10 и пусть находится сумма положительных чисел - PascalABC.NET

30.01.2017, 19:27. Просмотров 208. Ответов 3
Метки нет (Все метки)

Есть задача "пусть сгенерируется 10 случайных чисел в диапозоне от -10 до +10 и пусть находится сумма положительных чисел"
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2017, 19:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Пусть сгенерируется 10 случайных чисел в диапозоне от -10 до +10 и пусть находится сумма положительных чисел (PascalABC.NET):

Пусть дано n вещественных чисел, которые вводятся по одному. Найти сумму чисел, меньших по абсолютному значению квадрата порядкового номера вводим
Пусть дано n вещественных чисел, которые вводятся по одному. Найти сумму чисел,...

пусть дано 100 действительных чисел...
пусть дано 100 вещественных чисел которые вводятся по одному. найдите...

Написать программу которая генерирует 3 последовательности из 10 случайных чисел в диапозоне от 1 до 10
Написать программу которая генерирует 3 последовательности из 10 случайных...

ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ.
ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот...

Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*...*n для четного n. Вычислить n!!
Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и...

Написать программу, которая выведет на экран 10 строк по 5 случайных чисел в диапозоне 1..100
Написать программу, которая выведет на экран 10 строк по 5 случайных чисел в...

3
Alexandr212
94 / 91 / 110
Регистрация: 28.11.2016
Сообщений: 504
30.01.2017, 20:25 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a, s, i: integer;
 
begin
  randomize;
  writeln('сгенерированные числа:');
  for i := 1 to 10
  do 
  begin
    a := random(-10, 10);
    write(a:3);
    if a > 0
      then s += a;
  end;
  writeln;
  writeln('сумма положительных элементов ', s);
end.
0
JuriiMW
1829 / 1009 / 1537
Регистрация: 10.12.2014
Сообщений: 3,757
31.01.2017, 08:12 #3
Alexandr212, а может всё гораздо проще?
Pascal
1
2
3
4
5
begin
  var a := ArrRandomInteger(10,-10,+10);
  a.Println;
  WriteLn(a.Where(n->n>0).Sum);
end.
0
Alexandr212
94 / 91 / 110
Регистрация: 28.11.2016
Сообщений: 504
31.01.2017, 15:04 #4
А может и правда всё проще)
Но мое решение проще в плане синтаксиса, ведь не каждый новичок (хотя может и каждый) сам сможет это написать, кто знает, что от них требуют на таких задачах, так, что мой вариант я думою больше подходит для сдачи, а ваш в целом проще и удобнее.)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2017, 15:04
Привет! Вот еще темы с решениями:

Пусть дан файл целых чисел. Определите, образуют ли числа арифметическую прогрессию
Пусть дан файл целых чисел. Определите, образуют ли числа арифметическую...

Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму кратных 5
Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму тех из...

Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне значений P и H
ПОМОГИТЕ ПОЖАЛУЙСТА!!))) даны число P и H.Определить сумму чисел меньше...

Определить сумму чисел меньше P,произведение чисел больше H и кол-во чисел в диапозоне значений P и H
ПОМОГИТЕ!!!!! даны число P и H.Определить сумму чисел меньше P,произведение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru