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);
}
}
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
3 мб = 3072 кб
4096 - 3072 = 1024 кб
//PascalABC.NET 3.4.2
begin
var ar := arrrandom(100, -100, 100);
ar.Println.Take(5).Sum.Println;
ar.TakeLast(5).Sum.Println;
end.
Очень просто:
1) Система программирования это средство, которое позволяет писать программы, на определенном языке программирования, или на нескольких определенных языках.
2) Язык программирования: это система обозначений, которая позволяет записывать алгоритмы.
3) Чтоб алгоритм работал на машине, нужно: описание, на языке программирования, ввести в систему программирования, которая по этому описанию сделает выполняемую программу.
4) Кроме транслятора, система программирования содержит весь набор инструментов для работы: текстовые редакторы, конструкторы, отладчики, и тд. Поэтому называется "система"