Сформулируйте массив,содержащий 15 элементов,с датчика случайн ых чисел. получите новый массив,каждый элемент которого равен обратному соответствующему элементу исходного массива. посчитайте кол- во не изменившихся элементов и найдите в новом массиве максимальный о абсолютной величине отрицательный элемент. выведите на экран исходные и полученные результаты

268

301

Посмотреть ответы 2

Ответы на вопрос:

аня2942

Информатика

4,5(57 оценок)

Const n = 15; var mas: array[1..999] of integer; counter, c, max, i: integer; begin max: =-maxint; counter: =0; randomize; write('старый массив: '); for i: =1 to n do begin mas[i]: =random(101)-50; //случайные числа от -50 до 50 write(mas[i],' '); end; writeln; for i: =1 to n div 2 do begin if mas[i] = mas[n-i+1] then counter: =counter+1; if (mas[i]< 0) and (mas[i]> max) then max: =mas[i]; c: =mas[i]; mas[i]: =mas[n-i+1]; mas[n-i+1]: =c; end; if n mod 2 = 1 then counter: =counter+1; write('новый массив: '); for i: =1 to n do write(mas[i],' '); writeln; writeln('кол-во не изменившихся элементов: ', counter); writeln('максимальный отрицательный элемент: ', max); end.

Зина11111111

Информатика

4,7(51 оценок)

Var i,s: integer; begin write('s = '); readln(s); if s< =18 then begin for i: =10 to 99 do if ((i mod 10)+(i div 10)=s) then write(i,' '); end else writeln('недопустимое значение: ',s); end.