var
a, b: real;
begin
readln(a, b);
if (a < b) then
writeln(a)
else
writeln(b);
<em>//Или проще: writeln(min(a, b));</em>
end.
С псевдокодом я не особо знаком, но...
ввести числа а и б
если а меньше б, то вывести а
иначе вывести б
<Наглядные формы представления информации>
2) диаграмма
4) таблица
1. Наверное в версии паскаль в первой строке не degin а begin
После исправления ошибки получим по шагам выполнение кода:
k = 0 s = 17
k = 1 s = 19
k = 2 s = 21
k = 3 s = 23
k = 4 s = 25
k = 5 s = 27
k = 6 s = 29
k = 7 s = 31
k = 8 s = 33
k = 9 s = 35
k = 10 s = 37
Ответ: s = 37
<em>// PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var c:=ArrRandom(ReadInteger('k='),1,99); c.Println;
var m:=c.Average;
Writeln('Среднее арфифметическое равно ',m);
Writeln('Кол-во элементов, больших ср.арифм: ',c.Where(x->x>m).Count)
end.
<u>Пример</u>
k= 15
74 9 96 97 77 41 51 29 24 26 27 53 5 25 76
Среднее арфифметическое равно 47.3333333333333
Кол-во элементов, больших ср.арифм: 7
Автоматически папка - <em>спам</em>