Using System;
public class ArrayProg
{
static int[] minmax(int[] a, int s)
{
int min = a[0], max = a[0];
for (int i = 1; i < s; i++)
{
if (a[i] < min) min = a[i];
if (a[i] > max) max = a[i];
}
int[] r = new int[2];
r[0] = min;
r[1] = max;
return r;
}
public static void Main()
{
Console.Write("Размер массива: ");
int n = Convert.ToInt32(Console.ReadLine());
int[] arr = new int[n];
for (int i = 0; i < n; i++)
{
Console.Write("#{0} = ", i);
arr[i] = Convert.ToInt32(Console.ReadLine());
}
int[] mm = minmax(arr, n);
float sa = (mm[0] + mm[1]) / 2;
int s = 0;
for (int i = 0; i < n; i++)
{
if (arr[i] > sa) s++;
}
Console.WriteLine("Ответ: {0}", s);
}
}
Массив заполнен сразу
const a: array[1..8] of integer=(4,-2,-4,0,2,3,1,5);
var i:integer;
begin
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.
Массив заполняется с клавиаутры
var
a: array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do
readln(a[i]);
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.
Если не понятно, пиши комментарий, объясню.
2)введите номер месяца: 12
введите день: 3
до Нового года осталось: 28 дней