Var c,k1,k2,i,min,max: integer;
begin
min:=m[0]; max:=m[0];
for i:=0 to N do begin // тут вот N - размер массива, m - массив
if (m[i]>max) then begin
max:=m[i];
k1:=i
end;
if (m[i]
Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(71)-30;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Write('Номер столбца: ');
For j:= 1 to N do
Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j]>0 then k:=k+1;
Write(k:3,' ');
End;
End.
Пример:
Исходный массив:
33 -21 -24 4
-20 28 -29 25
-15 -1 11 3
Номер столбца: 1 2 3 4
Искомое кол-во: 1 1 1 3
1. Да, в общем случае...
2. Временной интервал при не превышении которого 2 щелчка засчитываются как даблклик
3. Клавиши-модификаторы
4. стрелочки 4 кнопки и 4 кнопки на малой цифр. клавиатуре
5. все кроме функциональных, да и вообще зависит от текстового редактора
Все же написано:
<span>z:18:5
Выделено 18 знакомест, из них <u>5 под дробную часть</u>.
</span>
