//pascal abc.net v3.0 var ma: array of array of integer; i,j,s,m: integer; begin randomize; readln(m); setlength(ma,m+1); for i: =1 to m do setlength(ma[i],m+1); writeln('matrix: '); for i: =1 to m do begin; writeln; for j: =1 to m do begin; ma[i,j]: =random(-30,40); write(ma[i,j]: 4); end; end; for i: =1 to m do for j: =i+1 to m do s+=ma[i,j]; writeln; writeln('result: ',s); end.
pavpe4198
28.01.2020
Var a: array[1..10] of integer; i,k,min: integer; begin k: =0; for i: =1 to 10 do begin read(a[i]); if (a[i] mod 2=0) and (a[i]< 0) then k: =k+1; if a[i]> 0 then min: =a[i]; end; for i: =1 to 10 do if (a[i]< min) and (a[i]> 0) then min: =a[i]; writeln('количество четных отрицательных чисел ', k); if min=0 then writeln('положительных элементов нету') else writeln('минимальный положительный элемент массива ', min); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Спо информатике, в программе html: расскажите о своём любимом фильме или супергерое, используя механизмы html и css , желательно с картинкой