На двумерный массив. 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] необходимо поменять местами: а) первый и последний элементы массива; б) второй и минимальный элементы массива; в) первый и максимальный элементы массива; вывести на экран исходный и результирующий массивы. завтра зачет это все надо сдать

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.

ответ:

да, может.

объяснение:

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