12. (2 banja)varj, s: integer; //nepemehhblearr: array[1..10] of integer; //maccubbeginarr[1] : = 16; arr[2] : = 20; arr[3] : = 20; arr[4] : = 41; arr[5] : = 14; arr[6] : = 21; arr[7] : = 28; arr[8] : = 12; arr[9] : = 15; arr[10] : = 35; s: = 100; forj: = 1 to 10 doif arr[j] < 25 thenbegins: = s + 1; end; writeln(s); end.​

максим1718    1   06.05.2019 09:40    1