Витя, петя и даша нарисовали картины. детей спросили, кто что нарисовал. я нарисовал горы- ответил витя. а я нарисовала лес-сказала даша. и оба высказывания были ложными.

Авопрос какой в этой ?

Const     k = 13; var     m: array[1..k] of integer;     i,a: integer;     s: longint; begin write('исходный массив: '); for i: = 1 to k do       begin       m[i]: =random(21)-10;       write(m[i],' ')       end; writeln; write('a = '); readln(a); s: =0; for i: = 1 to k do       if m[i] > a then s: =s+m[i]; writeln('s = ',s) end. пример: исходный массив: 9 -10 -6 6 -7 -1 -9 0 10 -8 -5 7 -7 a = 3 s = 32

Var a: array[1..5,1..5] of integer; i,j: integer; begin writeln('исходный массив: '); for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln; writeln('обработанный массив: '); for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               if i=j then                     if a[i,j] < 0 then a[i,j]: =0;               write(a[i,j]: 3,' ')               end;       writeln;       end end.