Дан массив v[15] целочисленных элементов. определить: 1)произведение элементов, занимающих 1, 6, 11 места в массиве. 2)сумму элементов, занимающих четные места в массиве. 3)сформировать новый массив k [10] из элемаентов с 1 по 10 по формуле: k[i]=v[i]*2. 4)определить максимальный элемент массива k, его порядковый номер. нужна программа, написанная, на языке програмирования pascal.

Вот, лучше в файле отправлю, а то тут строки сливаются=)

Var max_i, max_j, j, columns, rows, i : integer; arr: array[1..10,1..10] of integer; begin   rows : = random(8) + 2;   columns : = random(8) + 2;   writeln(rows, columns);     for i : = 1 to rows do       for j : = 1 to columns do           arr[i, j] : = random(100);   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln();   max_i: =1;   max_j: =1;   for i : = 1 to rows do       for j : = 1 to columns do           if arr[max_i, max_j] < arr[i, j] then begin               max_i: =i;               max_j: =j;           end;   for i : = 1 to rows do       if i < > max_i then           arr[i, max_j] : = 0;   for j : = 1 to columns do       if j < > max_j then           arr[max_i, j] : = 0;   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln(); end.

Рассмотрим оба варианта. сог = 2, гл = 3. крейсер 16 уловка 15 электричество 31 преподаватель 31 молоко 15 сог = 3, гл = 2 крейсер 19 уловка 15 электричество 34 преподаватель 34 молоко 15 если подсчитать символы, то   2732101263310132 16391002810039 12  104281032127100 15, 291032810327103 15 подходит только первый вариант, слова соответственно    "крейсер", "шалаш",    "уловка",    "молоко" или    "крейсер",  "шалаш",    "молоко"    "уловка".,   из первых двух слов:   к = 27  р = 32  е = 101  й = 26  с = 33  ш = 39  а = 100  л = 28    104281032127100 оканчивается на 100, то есть на а, значит это уловка  у = 104  о = 103    для роутера  недостает буквы т.  из порядка гласных (0 = 103, у = 104, а в алфавите у следующая гласная за о), понятно, что т = с+1 = 34 тогда роутер = 32 103 104 34 101 32