keramix

08.08.2021 10:51

Информатика

Есть ответ 👍

На двумерный массив. 1. заполнить двухмерный массив abcd [1..5,1..5] константами: 1 4 7 -10 13 7 10 13 15 19 13 -16 19 22 25 19 22 25 -28 31 25 28 31 34 37 а) удвоить все элементы массива, которые> 3. б) найти сумму всех элементов полученного массива. в) вывести на экран исходный и полученный массив. 2. заполнить двухмерный массив nm [1..5,1..5] константами: 100 101 102 103 104 200 201 202 203 204 300 301 302 303 304 400 401 402 403 404 500 501 502 503 504 вывести массив на экран так, чтобы четные (2,4) колонки и нечетные (1,3,5) колонки были разного цвета. 3. найти количество нечетных элементов двумерного массива massiv [1..10,1..7]. массив заполните случайными числами. результат вывести на экран в виде: »количество нечетных элементов массива = …». на одномерный массив 1. задан одномерный массив целых чисел mas1[1..7]. 1. значения элементов массива ввести склавиатуры. 2. вывести на экран массив, причем положительные элементы красным цветом, отрицательные синим цветом. 3. найти сумму положительных элементов и вывести на экран в виде «сумма положительных элементов =» 2. задан одномерный массив mas2 [1..10]. 1.массив объявите как константу типа integer размером [1..10]со следующими значениями: (-7, 89, 64, -43, 4, 6, 8, -12, 55, 99) 2.замените все положительные элементы одномерного массива на их квадраты, а отрицательныеудвойте. 3.результат вывести на экран. 4.вычислить сумму всех элементов нового массива и вывести на экран. исходный массив новый массив -7 -14 89 178 64 4096 -43 -86 4 16 6 36 8 64 -12 144 55 110 99 198 сумма элементов нового массива 4742 3. даны два массива aи b, состоящих из одинакового числа элементов. найти среднее арифметическое элементов каждого и сравнить эти значения. заполнение массива выберите по своему усмотрению. 4. в одномерном массиве а[1..12] необходимо поменять местами: а) первый и последний элементы массива; б) второй и минимальный элементы массива; в) первый и максимальный элементы массива; вывести на экран исходный и результирующий массивы. завтра зачет это все надо сдать

159

404

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

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

Елена5763

Информатика

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

3 (двухмерный массив)

var

a: array [1..10,1..7] of integer;

k,i,j: integer;

begin

randomize;

for i: =1 to 10 do begin

for j: =1 to 7 do begin

a[i,j]: =random(9)+1;

write (a[i,j]: 4);

if a[i,j] mod 2 < > 0 then k: =k+1;

end;

writeln;

end;

writeln ('количество нечетных элементов массива = ',k);

readln;

end.

2 (двухмерный массив)

uses crt; consta: array [1..5,1..5] of integer = ((100,101,102,103,104), (200,201,202,203,204), (300,301,302,303,304), (400,401,402,403,403), (500,501,502,503,504)); vari,j: integer; beginclrscr; for i: =1 to 5 do beginfor j: =1 to 5 doif j mod 2 = 0 then begintextcolor (12); write (a[i,j]: 4); textcolor (7); end else begintextcolor (9); write (a[i,j]: 4); textcolor (7); end; writeln; end; readln; end.

1 (одномерный массив)

uses crt; vara: array [1..7] of integer; i,sum: integer; beginclrscr; for i: =1 to 7 do beginwrite ('a[',i,'] = '); readln(a[i]); if a[i]> 0 then sum: =sum+a[i]; end; for i: =1 to 7 doif a[i]> 0 then begintextcolor (red); write (a[i]: 4); end else begintextcolor (blue); write (a[i]: 4); end; writeln; textcolor (darkgray); writeln ('сумма положительных элементов = ',sum); readln; end.

4 (одномерный массив)

uses crt; vara: array [1..12] of integer; i,buf,min,max: integer; beginclrscr; randomize; a[1]: =random(14)+1; min: =1; max: =2; writeln ('исходный массив: '); write (a[1]: 4); for i: =2 to 12 do begina[i]: =random(14)+1; write (a[i]: 4); if a[i]> a[max] then max: =i elseif a[i]< a[min] then min: =i; end; writeln; {смена 1-ого и последнего эл}buf: =a[1]; a[1]: =a[12]; a[12]: =buf; {смена 2-ого и мин эл}buf: =a[2]; a[2]: =a[min]; a[min]: =buf; {смена 1-ого и макс эл}buf: =a[1]; a[1]: =a[max]; a[max]: =buf; writeln ('результирующий массив: : '); for i: =1 to 12 do write (a[i]: 4); writeln; readln; end.

3 (одномерный массив)

vara,b: array [1..10] of integer; i,j: integer; s1,s2: real; beginrandomize; s1: =0; s2: =0; writeln; for i: =1 to 10 do begina[i]: =random(11)-5; b[i]: =random(19)-9; write (a[i]: 4); s1: =s1+a[i]; s2: =s2+b[i]; end; writeln; for i: =1 to 10 do write (b[i]: 4); writeln; s1: =s1/10; s2: =s2/10; if s1> s2 then writeln ('s1 > s2') elseif s1< s2 then write ('s1 < s2') else writeln ('s1 = s2'); readln; end.

mixaqwer

Информатика

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

ответ:

да, может.

объяснение:

потому что это microsoft))

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

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

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

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

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

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

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

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

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

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