Извините, пожалуйста но чтобы добавить картинку нужно когда пишешь вопрос нажать на скрепочку (фото)
var
a,b:integer;
begin
writeln('Введите два числа');
readln(a,b);
if a>b then
writeln ('Первое число больше , то есть',a, ')
else
writeln ('Второе число больше , то есть',b, ');
end.
200*35*50 = 350 000 байт
350 000 байт = 0,35 Мбайт
2 Гб = 2000 Мбайт
2000 / 0,35 = 5 714 учебников
переменные объявлены в области видимости функции if , а это значит , что когда функция завершает свое выполнение , все переменные из ее области видимости удаляются (то же и с циклами, и с функциями , и с классами и т.д.)
крч инициализируй нулями эти три переменные в начале программы
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.
<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26