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

Задание 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] необходимо

поменять местами:
а) первый и последний элементы массива;
б) второй и минимальный элементы массива;
в) первый и максимальный элементы массива;

Вывести на экран исходный и результирующий массивы.

паскаль(((

помогите пожалуйста завтра зачет это все надо сдать

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

Ответ на вопрос дан Mishka28

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