4.7.21. заполните массив p[1..10] суммой соответствующих элементов массива a[1..10] и b[1..10]. массивы - id1057656520210809 от Александр756 09.08.2021 20:30

Question

Информатика: 4.7.21. заполните массив p[1..10] суммой соответствующих элементов массива a[1..10] и b[1..10]. массивы a[1..10] и b[1..10] заполнить случайными числами в диапазоне от -5 до 30. 4.7.40. одномерный массив c[1..27] заполнить случайными числами в диапазоне от - 10 до 20. распечатайте все различные тройки его элементов (в исходном массиве могут содержаться одинаковые элементы).

Александр756 · Accepted Answer

{ ответ дан на языке Pascal } {         Вариант a         } PROGRAM Solution(INPUT, OUTPUT); VAR   Str: STRING;   Str1: STRING;   Str2: STRING;   Str3: STRING;   TempStr: STRING; BEGIN   WRITE( Введите строку: );   READLN(Str);   Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);   Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));   Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));   WRITELN(Str2 + Str3 + Str1); END. {         Вариант b         } PROGRAM Solution(INPUT, OUTPUT); VAR...

MOGZ ответил