Var
i,sum:integer;
res:real;
a:array [1..5] of integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
end;
for i:=1 to 5 do begin
sum:=sum+a[i];
end;
res:=sum/5;
writeln(res);
end.
#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;
int main()
{
srand(time(NULL));
int N = 10, A[N], Max = 1;
cout << "A:";
for(int i = 0; i < N; i++)
{
A[i] = rand() % 281 - 140;
cout << " " << A[i];
if (A[i] > A[Max]) Max = i;
}
cout << "\nMax = " << A[Max] << "["<<Max+1<<"]";
N = Max - 2;
if (N < 0) N = -N;
int B[--N];
for(int i = 2; i < Max; i++)
B[i-3] = A[i];
for(int i = 2; i > Max; i--)
B[i-2] = A[i];
cout << "\nB:";
for(int i = 0; i < N; i++)
cout << " "<< B[i];
}
Const n=20;
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.