Составить программу (в pascal) позволяющую найти минимальный элемент массива. подсчитать количество элементов в массиве, равных минимальному. размеренность массива произвольная.
Program my; var k,i,z:integer; a:array[1...N]:integer; begin k:=99999; for i:=1 to N do if a[i]<k then k:=a[i]; z:=0; for i:=1 to N do if a[i]=k then z:=z+1; end. =)
Uses crt; const N=10; var a:array [1..N] of integer; x,min,k:integer; begin for x:=1 to N do begin write('a[',x,']:',a[x]); readln(a[x]); end; min:=a[1]; for x:=1 to N do if a[x]<min then min:=a[x]; for x:=1 to N do if a[x]=min then inc(k); writeln('Минимальный элемент: ',min,'. Таких элементов в массиве: ',k); end.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 // Также проверено в WDE: http://pascalabc.net/WDE begin var s:=ReadlnString('>'); s.Batch(s.Length div 5).Skip(2).Take(1).Aggregate((c1,c2)->c1+c2).Println('') end.
Тестовое решение > retmutsike ut
2. Еще один вариант (на слайсах)
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 // Также проверено в WDE: http://pascalabc.net/WDE begin var s:=ReadlnString('>'); var m:=s.Length div 5; s[2*m+1:3*m+1].Println('') end.
3. Стандартные средства Паскаля
var s:string; m:integer;
begin Write('>'); Readln(s); m:=s.Length div 5; Writeln(Copy(s,2*m+1,m)) end.
Sub num1() s = 0 n = CInt(InputBox("N =")) Range(Cells(1, 1), Cells(2 * (n + 2), n + 2)).Clear ReDim A(n - 1) ReDim B(n - 1)
k = 1 Cells(k, 1).Value = "A" Cells(k + 2, 1).Value = "B" k = k + 1
m = -1 For i = LBound(A, 1) To UBound(A, 1) A(i) = Round(Rnd * 10) - 5 Cells(k, 1 + i).Value = A(i) If A(i) = 0 Then m = m + 1 B(m) = i Cells(k + 2, m + 1).Value = B(m) End If Next End Sub
Sub num2() n = 16 ReDim A(n, n), C(n, n), E(n, n) Range(Cells(1, 1), Cells(2 * (n + 2), n + 2)).Clear
k = 1 Cells(k, 1).Value = "Init"
k = k + 1 Cells(k + n + 1, 1).Value = "Result"
For i = 0 To n For j = 0 To n A(i, j) = Round(Rnd * 10) Cells(k + i, j + 1).Value = A(i, j)
If i = j Then E(i, j) = 1 Else E(i, j) = 0
C(i, j) = 0 For r = 0 To n C(i, j) = C(i, j) + A(i, r) * A(r, j) Next
x = 6 * (C(i, j) + E(i, j)) Cells(k + n + 2 + i, j + 1).Value = x Next Next End Sub
var k,i,z:integer;
a:array[1...N]:integer;
begin
k:=99999;
for i:=1 to N do
if a[i]<k then k:=a[i];
z:=0;
for i:=1 to N do
if a[i]=k then z:=z+1;
end.
=)