Информатика, опубликовано 09.01.2019 16:01
Дан массив А[10]. Найти МАХ элемент среди элементов, стоящих на чётных местах и найденным значением заменить все элементы массива А, кратные 3. Преобразованный массив вывести на экран. Напишите программу на языке паскаль, спасибо!
Ответ оставил: Гость
Const csize = 10; var m: array[1..csize] of integer; begin randomize(); var max : = -(maxint); write('исходный массив: '); for var i : = 1 to csize do begin m[i] : = random(100) + 1; if (i mod 2 = 0) and (m[i] > max) then max : = m[i]; write(m[i], ' ') end; write(newline, 'преобразованный массив: '); for var i : = 1 to csize do begin if m[i] mod 3 = 0 then m[i] : = max; write(m[i], ' ') end end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01