Вот сортировка, остальное все просто ( стандартный вывод с условием и форматированием )for i: =1 to n-1 do for j: =i+1 to n do if a[i]< a[j] then begin x: =a[i]; a[i]: =a[j]; a[j]: =x; end;
igorshevkun
30.03.2022
Program task1; var n: real; begin: read(n); if n > 0 then writeln('положительное'); if n < 0 then write('отрицательное'); end. programm task2; var a, b, c, positives: integer; begin: if a > 0 then positives: =positives+1; if b > 0 then positives: =positives+1; if c > 0 then positives: =positives+1; writeln('положительных: ', positives); end. program task3; var n: integer; begin: read(n); if (n mod 2) > 0 then writeln('не чётное'); else writeln('чётное'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дан номер месяца – целое число в диапазоне 1-12 (1- январь, 2 –февраль и т. вывести название месяца по заданному числу. на c# решите .