Pascal пользователь вводит одномерный массив(1..15).вывести его в обратном порядке и посчитать произведение элементов. посчитать произведение элементов,стоящих на главной диагонали массива 4: 4,введенного пользователем.сам массив выписать дан целочисленный массив из 20 элементов.элементы массива могут принимать целые значения от 0 до 10000 включительно.опишите их алгоритм,позволяющий найти и вывести макс. значение среди трехзначащих элементов массива,не делящихся на 9.если в исходном массиве нет элементов,которые явл. трехзнач. числов,при этом не кратно 9,то выведет сообщение не найдено.

163

263

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

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

leryush1

Информатика

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

Var a: array[1..15] of integer; i: integer; begin for i: =1 to 15 do read(a[i]); for i: =15 downto 1 do write(a[i],' '); end.var a: array[1..4,1..4] of integer; i,j,s: integer; beginfor i: =1 to 4 do for j: =1 to 4 do begin read(a[i,j]); if i=j then s+=a[i,j]; end; for i: =1 to 4 do begin for j: =1 to 4 do write(a[i,j]: 3); writeln; end; writeln(s); end.var a: array[1..20] of integer; i,max: integer; beginfor i: =1 to 20 do beginread(a[i]); if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 9 < > 0) and (a[i]> max) then max: =a[i]; end; if (max< > 0) then writeln(max)else writeln('не найдено'); end.