{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"} const m=100; var a:array[1..m,1..m]of integer; i,j,S,n,k: integer; begin Readln(n); for i:=1 to n do begin writeln; for j:=1 to n do begin a[i,j]:=random(100)-50; write(a[i,j]:4);
end; end; for i:=1 to n do if a[i,i]>0 then begin s:=s+a[i,i]; k:=k+1; end; writeln; if k<>0 then writeln('SR=', s/k) else writeln('Net <0'); end.
Const n=8; var x : array[1..n] of real; i : integer; min : real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=20*random-10; write(x[i]:6:2,' '); end; writeln; min:=x[1]; for i:=2 to n do if x[i] < min then min:=x[i]; writeln('min=',min:6:2); for i:=1 to n do if x[i]<0 then x[i]:=min; writeln('Измененный массив:'); for i:=1 to n do write(x[i]:6:2,' '); end.
Если есть хобот и большие уши, то это слон или(если хобот и большие уши, то слон)
сканер
Объяснение:
без клавиатуры - не получиться ввести ввод информации
без мыши - не получиться управлять курсором
без монитора - не получиться увидеть информацию
системный блок - содержит всю электронику для работы