Задачи на двумерный массив.

 

Задание 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.