Задание (максимальная оценка – 12п.): Запустить генератор случайных чисел. (1п.)
В виде комментария (оператор REM) записать свою фамилию и класс. (1п.)
Ввести значение переменной а с оператора присваивания (1п.)
Получить переменную b в виде целого случайного числа в интервале (-4,6). (2п.)
Вычислить третью переменную с, равную разности двух первых переменных. (1п.)
Вывести на экран полученные значения переменных, а, b и с в указанном виде (2п.)
а= значение а b= значение b
с= значение с
Найти сумму переменных а, b и с, вывести её на экран в указанном виде. (2п.)
SUMMA=значение
Если полученная сумма положительна (>=0), то получить на экране
REZULTATS POZITIVS , если отрицательна - REZULTATS NEGATIVS.(2п.)
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017
// Внимание! Если программа не работает, обновите версию!
begin
var L:=new List<(string,real)>;
// это не решение задачи, это ввод данных
Writeln('Введите в каждой строке фамилию, пробел, время');
var i:=1;
repeat
var s:=ReadlnString(i+': ');
if s[1]='*' then break;
var w:=s.ToWords;
L.Add(Rec(w[0],real.Parse(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
Пример
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)