Постройте схемы соответствует следующим логическим выражением.

151

390

Посмотреть ответы 1

Ответы на вопрос:

ladyalinaELIZ

Информатика

4,6(18 оценок)

1) var a: array[1..10000] of longint; n,i,min,max: longint; begin readln(n); for i: =1 to n do read(a[i]); max: =a[1]; min: =a[1]; for i: =2 to n do begin if (a[i]> max) then max: =a[i]; if (a[i]< min) then min: =a[i]; end; writeln(max-min); end. 2) var a: array[1..10000] of longint; begin readln(n); for i: =1 to n do read(a[i]); for i: =1 to n do if (a[i]> 5) then write(a[i],' '); writeln; end. 3) var a: array[1..10000] of longint; i,n: longint; begin readln(n); for i: =1 to n do read(a[i]); writeln(0); end.