// PascalABC.NET 3.0, сборка 1128 const nn=20; var b:array[1..nn] of integer; i,n,bmin,bmax:integer; begin Randomize; Write('n='); Read(n); Writeln('Элементы массива'); bmax:=-1000; bmin:=1000; for i := 1 to n do begin b[i]:=Random(51)-25; Write(b[i],' '); if b[i]<bmin then bmin:=b[i] else if b[i]>bmax then bmax:=b[i] end; Writeln; Writeln('Ср. арифметическое минимального и максимального: ', (bmin+bmax)/2) end.
#include <ctime>
#include <iostream>
#include <iomanip>
using namespace std;
int main(int argc, char** argv) {
int n,k,j=0;
srand(time(NULL));
cout<<"n = "; cin>>n;
cout<<"k="; cin>>k; cout<<endl;
int a[n];
for (int i=0; i<n; i++)
{ a[i]=rand()/300; cout<<setw(5)<<a[i];
if (a[i]<k) j=i+1;
}
if (j>0) cout<<endl<<"ind = "<<j;
else cout<<endl<<"no elements";
return(0);
}