Сформировать случайный одномерный целочисленный массив Х, состоящий из 17 элементов, значения элементов от -43 до 79:

1. Найти количество положительных элементов массива;
2. Вычислить сумму однозначных элементов массива;
3. Вывести на экранную форму чётные элементы массива с их номерами;
4. Найти максимальный и минимальный элементы массива и их номера;
5. Поменять местами максимальный и последний элементы массива;
6. Упорядочить элементы массива по убыванию;
7. Сформировать новый массив Y из элементов массива X, выбирая в него только элементы с чётными номерами.

В русской компьютерной письменности в настоящее время используются две раскладки клавиатуры: ЙЦУКЕН, и «фонетическая раскладка». Наиболее распространённой из них является раскладка ЙЦУКЕН, название которой происходит от шести левых символов верхнего ряда раскладки. Предшественницу этой раскладки, которую точней было бы называть ЙІУКЕН, создали в США в конце XIX века для пишущих машинок. В России в те времена раскладка ЙІУКЕН получила официальное название «Стандард-клавиатура». В раскладке в нижнем регистре располагались строчные буквы и знаки препинания, а в верхнем — прописные буквы и цифры.

VB.

Dim msg As String
        msg = InputBox("Введите строку")
Dim s As Integer

If msg.IndexOf("K") > -1 Then s += 1       
If msg.IndexOf("E") > -1 Then s += 1       
If msg.IndexOf("Y") > -1 Then s += 1       
If s = 3 Then MsgBox("YES") Else MsgBox("NO")

Pascal.

program chislo;
var x : integer;
    msg : string;
begin
     write('Введите строку: ');
     readln(msg);
     if pos(msg,'K')>0 then X:=X+1;
     if pos(msg,'E')>0 then X:=X+1;
     if pos(msg,'Y')>0 then X:=X+1;
     if (x=3) then writeln('YES') else writeln('NO')
end.