На скриншоте
============={
готово
Объяснение:
1)
program minimum;
var
i, n, k: integer;
min: real;
A: array of real;
begin
Write('Введите размер массива: ');
ReadLn(n);
SetLength(A, n);
for i := 0 to n - 1 do
begin
Write('Введите A[',i,']=');
ReadLn(A[i]);
end;
min := A[0];
for i := 1 to n - 1 do
if A[i] < min then
begin
min := A[i];
k := i;
end;
WriteLn('Минимальный элемент - A[',k,'] = ', min);
end.
2)
program summa;
var
i, t, sum: integer;
A: array of integer;
begin
Write('Введите размер массива: ');
ReadLn(t);
SetLength(A, t);
for i := 0 to t - 1 do
begin
A[i] := round(random(120) - 60);
WriteLn('A[', i, '] = ', A[i]);
if A[i] > 20 then sum := sum + a[i];
end;
WriteLn('Сумма чисел, больших 20 = ', sum);
end.
3)
program massiv;
var
i, k: integer;
A: array[0..13] of integer;
begin
for i := 0 to 13 do
begin
A[i] := round(random(27) + 3);
WriteLn('A[', i, '] = ', A[i]);
if A[i] > 13 then k := k + 1;
end;
WriteLn('Количество чисел, больших 13 равно ', k);
end.
// PascalABC.NET 3.3.5, сборка 1662 (29.04.2018)
begin
Println($'Среднее арифметическое : {ArrRandomInteger(40,0,20).Println.Where(e-> e.IsOdd).DefaultIfEmpty.Average}')
end.
// FreePascal
var
a: array[0..39] of integer;
i, c, s: integer;
begin
randomize;
for i := 0 to 39 do
begin
a[i] := random(21);
Write(a[i],' ');
if (a[i] mod 2 <>0) then
begin
inc(c);
s := s + a[i];
end;
end;
Writeln;
if c<>0
then Writeln('Среднее арифметическое: ',s/c)
else Writeln(0);
end.
// C++
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a[40];
double c = 0, s = 0;
srand(time(0));
for (int i = 0; i < 40; i++) {
a[i] = rand() % 21;
cout << a[i] << " ";
if (a[i] % 2 != 0) {
c++;
s += a[i];
}
}
if (c!=0) cout << "\nСреднее арифметическое = " << s / c << endl;
else cout << "\nСреднее арифметическое = 0 " << endl;
system("pause");
return 0;
}