1. дан двумерный массив размером 3x5. вычислить сумму элементов массива 2. дан массив целых чисел размеров 4х4. заменить все элементы главной диагонали на нули. вывести на экран монитора содержимое массива до обработки и после обработки 3. в двумерном массиве 4х4. вычислить среднее арифметическое элементов главной диагонали. 4. в двумерном массиве вычислить количество четных элементов 5. дан массив a(5,5). вывести ее в элементы ниже главной диагонали в треугольном виде (т. е. напечатать элементы нижнего треугольника в виде треугольника)

202

314

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

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

Sobennikovoleg

Информатика

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

1. дан двумерный массив размером 3x5. вычислить сумму элементов массива var a: array[1..3, 1..5] of integer; i,i2,sum: integer; begin for i: =1 to 3 do begin for i2: =1 to 5 do begin writeln('введите элемент '); readln(a[i,i2]); sum+=a[i,i2]; end; end; writeln('сумма: ', sum); end. 2. дан массив целых чисел размеров 4х4. заменить все элементы главной диагонали на нули. вывести на экран монитора содержимое массива до обработки и после обработкиvar a: array[1..4, 1..4] of integer; i, i2: integer; begin for i: =1 to 4 do begin for i2: =1 to 4 do begin writeln('введите элемент: '); read(a[i,i2]); end; end; writeln('массив до изменений: '); for i: =1 to 4 do begin for i2: =1 to 4 do begin write(a[i,i2]); end; writeln(); end; writeln('массив после изменений: '); for i: =1 to 4 do begin for i2: =1 to 4 do begin if i=i2 then a[i,i2]: =0; write(a[i,i2]); end; writeln(); end; end. 3. в двумерном массиве 4х4. вычислить среднее арифметическое элементов главной диагонали.var a: array[1..4, 1..4] of integer; i, i2,sum,count: integer; srednee: real; begin for i: =1 to 4 do begin for i2: =1 to 4 do begin writeln('введите элемент: '); read(a[i,i2]); if i=i2 then begin sum+=a[i,i2]; count+=1; end; end; end; writeln('массив: '); for i: =1 to 4 do begin for i2: =1 to 4 do begin write(a[i,i2]); end; writeln(); end; srednee: =sum/count; writeln('среднее арифметическое главной диагонали массива: ', srednee); end. 4. в двумерном массиве вычислить количество четных элементовvar a: array[1..4, 1..4] of integer; i, i2,sum,count: integer; srednee: real; begin for i: =1 to 4 do begin for i2: =1 to 4 do begin writeln('введите элемент: '); read(a[i,i2]); if (a[i,i2] mod 2=0) then begin count+=1; end; end; end; writeln('массив: '); for i: =1 to 4 do begin for i2: =1 to 4 do begin write(a[i,i2]); end; writeln(); end; writeln('количество чётных элементов массива: ', count); end.

makismunguran

Информатика

4,6(82 оценок)

Program lloyd; varx,y,z: real; begin y: =*4)-30)/3)*365; write('nakopleniya pole za god = ', y); readln (y); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.