Program gt; var a: array[1..100]of integer; n,i,max: integer; begin read(n); for i: =1 to n do read(a[i]); max: =a[1]; for i: =2 to n do if(a[i]> max)then max: =a[i]; if(max> 10)then writeln('true')else writeln('noooo'); end.
Natysya7777
31.12.2020
Var a: array[1..100] of integer; i, n: integer; k: integer; begin {ввод массива} n : = 20; writeln('данные массива: '); for i : = 1 to n do begin a[i] : = random(30 + 1) + 1; write(a[i], ' '); end; writeln(); writeln('выбранные: '); for i : = 1 to n do if a[i] mod (2 * 3) = 0 then write(a[i], ' '); end.
snopovajulia
31.12.2020
Const n = 10; var s, i: integer; a: array[1..n] of integer; begin randomize; for i : = 1 to n do begin a[i] : = random(60) - 30; write(a[i], ' '); if a[i] > 0 then s : = s + a[i]; end; writeln; writeln(s); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Впоследовательности чисел выдать на печать true, если значение максимального числа больше числа 10.