Var i: Integer; // рабочая переменная для for k: Integer; // количество минимальных элементов n: Integer; // размер массива m : array [1..10] of Integer; // Собственно сам массив из "n" элементов i_min : Integer; // Индекс минимального элемента в массиве begin n:=10; k := 0; i_min := 1; for i := 1 to n do begin m[i] := Random(10); // 10 - Число от балды if (m[i]<m[i_min]) then begin k := 1; i_min := i end else if (m[i]=m[i_min]) then inc(k); end;
// В переменной "k" - находится количество минимальных элементов end;
Первая: Uses crt; Var arr:array[1..100] of integer; n,a,c:integer; Begin Write('Сколько чисел вы хотите ввести?-'); Readln(n); for a:=1 to n do begin Write('Введите ',a,' число:'); Readln(arr[a]); end;c:=0; For a:=1 to n do Begin if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1; end; Writeln('В последовательности ',c,' нечетных отрицательных чисел.'); end.
Вторая: Uses crt; Var arr:array[1..100] of integer; a,b,c,m:integer; begin Write('Сколько чисел вы хотите ввести?-'); Readln(b); For a:=1 to b do begin Write('Введите ',a, ' число:'); Readln(arr[a]); end; For a:=1 to b do Begin m:=arr[a]; For c:=1 to 2 do begin arr[a]:=m*arr[a]; end;end; For a:=1 to b do begin Writeln('Куб ',a,' введенного вами числа равен:',arr[a]); end; end.
