Задания делаются в языке Paskal ABC/
Заранее за Задача 1. Дан файл, содержащий ненулевые целые числа. Создать новый файл,
содержащий только положительные числа исходного файла (в том же порядке).
Задача 2. Дан файл вещественных чисел. Поменять в нем местами минимальный и
максимальный элементы.
1)Место, пригодное, при для пешей переправы, для пешеходов, идущих через улицу.
Коридор, галерея или иное место, соединяющее одно помещение с другим.
2) Недавно стал свидетелем, велосипедист не смог объехать идущую по тротуару группу людей и вылетев на проезжую часть принялся кричать, что пешеходы заняли весь тротуар и ему не проехать. А на слова, о том что тротуар для пешеходов - послал учить правила дорожного движения. Так что думаю - не скоро. Справедливости ради стоит сказать, что и сам не поеду на велосипеде по проезжей части - я ведь не самоубийца.
//Если программа не запускается, то обновите версию
function CreateArray(length: integer): array of integer;
begin
var a := new integer[length];
for var i := 0 to length - 1 do
a[i] := Random(0, 100);
// Println(a);
Result := a;
end;
begin
var arrays := new List<(char, array of integer)>();
arrays.Add(('a', CreateArray(15)));
arrays.Add(('b', CreateArray(13)));
arrays.Add(('c', CreateArray(08)));
arrays.Add(('d', CreateArray(11)));
arrays.Add(('e', CreateArray(14)));
arrays.Add(('f', CreateArray(10)));
arrays.Add(('g', CreateArray(09)));
foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
begin
Println(a.Item1, a.Item2.Min());
end;
end.