Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.
Ответ дал: Гость
program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.
Ответ дал: Гость
однажды мне подарили ноутбук.до этого был старый компьютер.включив ноутбок, я понял, что он намного лучше бережет зрение, нежели компьютер.я стал беречь его, что научило меня аккуратности.я купил диски, чтоб установить программное обеспечение на ноутбуке в случае форматирования жесткого диска.он мне стал хорошим другом.
что то вроде такого)
Ответ дал: Гость
мед во втором горшке. эти надписи обе ложны, значит первая говорит, что мед не в ней, а вторая что мед есть.
Популярные вопросы