Хотя бы 3-4 ! 1) дан одномерный целочисленный массив размерностью n. найдите количество элементов, которые кратны 3 (5). 2) дан одномерный целочисленный массив а, состоящий из n элементов. найти сумму всех четных элементов массива. 3) дан одномерный целочисленный массив а, состоящий из n элементов. найдите произведение всех нечетных элементов массива. 4) дан двумерный массив размерностью nxm, заполненный случайными числами. заменить все четные элементы массива на 2, а нечетные на 1. на экран вывести исходный и новый массив. 5) дан двумерный массив размерностью nxm, заполненный случайными числами. напишите программу, в результате выполнения которой все элементы массива увеличиваются в 2 раза. на экран вывести исходный и новый массив.

250

412

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

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

morti3

Информатика

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

Сделал все! ) поставь наилучшее! 1)var a: array [0..5] of integer; i,j: integer; begin randomize; j: =0; for i: =0 to 5 do a[i]: =random(100); for i: =0 to 5 do if a[i] mod 3 =0 then inc(j); writeln(j); readln; 2)var a: array [0..5] of integer; i,j: integer; begin randomize; j: =0; for i: =0 to 5 do a[i]: =random(100); for i: =0 to 5 do if a[i] mod 2 =0 then j: =j+a[i]; writeln(j); readln; 3)a: array [0..5] of integer; i,s: integer; begin randomize; s: =1; for i: =0 to 5 do a[i]: =random(9)+1; for i: =0 to 5 do if i mod 2 < > 0 then s: =s*a[i]; writeln(s); readln; end.4)const n=5; m=5; var a: array [0..n,0..m] of integer; i,j: integer; begin randomize; for i: =0 to n do for j: =0 to m do a[i,j]: =random(100); for i: =0 to n do begin writeln; for j: =0 to m do write(a[i,j]: 3); end; for i: =0 to n do for j: =0 to m do begin if a[i,j] mod 2 =0 then a[i,j]: =2 else if a[i,j] mod 2 < > 0 then a[i,j]: =1; end; writeln; for i: =0 to n do begin writeln; for j: =0 to m do write(a[i,j]: 3); end; readln; end. 5)const n=5; m=5; var a: array [0..n,0..m] of integer; i,j: integer; begin randomize; for i: =0 to n do for j: =0 to m do a[i,j]: =random(10); for i: =0 to n do begin writeln; for j: =0 to m do write(a[i,j]: 3); end; for i: =0 to n do for j: =0 to m do a[i,j]: =a[i,j]*2; writeln; for i: =0 to n do begin writeln; for j: =0 to m do write(a[i,j]: 3); end; readln; end.

LeeAddon

Информатика

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

Const n=100; var a: array[1..n] of integer; i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(100); write(a[i]: 4); end; writeln; writeln('четные числа: '); for i: =1 to n do if a[i] mod 2 = 0 then write(a[i]: 4); writeln; end. пример (для n=10): 80 90 8 37 95 34 42 33 51 33 четные числа: 80 90 8 34 42

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

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

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

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

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

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

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

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

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

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