Одномерный массив из 12 элементов заполнить случайным образом числами от 0 до 50. если пятый элемент таблицы меньше десятого элемента,то присвоить этим элементам удвоенное собственное значение,иначе обнулить эти элементы массива.вывести на экран монитора первоначальный и преобразованный массвы в строчку.

253

260

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

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

motidzukiakane

Информатика

4,4(23 оценок)

Var a: array[1..12]of integer; i: integer; begin writeln('исходный массив: '); for i: =1 to 12 do begin a[i]: =random(51); write(a[i]: 4); end; writeln; if a[5]< a[10] then begin a[5]: =a[5]*2; a[10]: =a[10]*2; end else begin a[5]: =0; a[10]: =0; end; writeln('преобразованный массив: '); for i: =1 to 12 do write(a[i]: 4); end.