На двумерный массив. 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;
const
a: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));
var
i,j:integer;
begin
clrscr;
for i:=1 to 5 do begin
for j:=1 to 5 do
if j mod 2 = 0 then begin
textcolor (12);
write (a[i,j]:4);
textcolor (7);
end else begin
textcolor (9);
write (a[i,j]:4);
textcolor (7);
end;
writeln;
end;
readln;
end.

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

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

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

uses crt;
var
a:array [1..12] of integer;
i,buf,min,max:integer;
begin
clrscr;
randomize;
a[1]:=random(14)+1;
min:=1;
max:=2;
writeln ('Исходный массив: ');
write (a[1]:4);
for i:=2 to 12 do begin
a[i]:=random(14)+1;
write (a[i]:4);
if a[i]>a[max] then max:=i else
if 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 (одномерный массив)

var
a,b:array [1..10] of integer;
i,j:integer;
s1,s2:real;
begin
randomize;
s1:=0;
s2:=0;
writeln;
for i:=1 to 10 do begin
a[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') else
if s1<s2 then write ('S1 < S2') else writeln ('S1 = S2');
readln;
end.