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

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

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

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

Пусть дано 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 и...

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
2053 / 1120 / 1595
Регистрация: 10.12.2014
Сообщений: 4,266
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

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

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

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


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

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

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