X

Скопируйте код и вставьте его на свой сайт.

Ширина px

Вы можете уменьшить размер презентации, указав свой размер!

Методическое пособие по массивам

Методическое пособие по массивам Одномерные массивы Двухмерные массивы
Методическое пособие по одномерным массивам Задача №1 Задача №2 Задача №3 Зад...
Задача № 1 Дан одномерный целочисленный массив из 7 элементов. Найдите сумму ...
Ответ Program massiv1; uses CRT; var a: array [1..7] of integer; S,i: integer...
Задача № 2 Дан одномерный целочисленный массив из 8 элементов. Найдите произв...
Ответ Program massiv2; uses CRT; var a: array [1..8] of integer; P,i: integer...
Задача № 3 Дан одномерный целочисленный массив из 10 элементов. Посчитайте ко...
Ответ Program massiv3; uses CRT; var a: array [1..10] of integer; k,i: intege...
Задача №4 Дан одномерный целочисленный массив из 10 элементов. Найдите их сре...
Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,k,s:integer...
Задача № 5 Дан одномерный целочисленный массив из 10 элементов .Найдите макси...
Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,max,n:integ...
Методическое пособие по двухмерным массивам Задача № 1 Задача № 2 Задача № 3 ...
Задача № 1 Дан двухмерный целочисленный массив 5х6. Заполнить с клавиатуры. В...
Ответ Program massiv1; uses CRT; var a: array [1..5,1..6] of integer; I,j,p: ...
Задача № 2 Дан двухмерный целочисленный массив 3х3.Заполнить случайными числа...
Ответ Program massiv2; uses CRT; var a: array [1..3,1..3] of integer; max,i,j...
Задача № 3 Дан двухмерный целочисленный массив 4х5.Заполнить случайными числа...
Ответ Program massiv3; uses CRT; var a: array [1..4,1..5] of integer; s,i,j: ...
Задача № 4 Дан двухмерный целочисленный массив 4х6.Заполнить случайными числа...
Ответ Program massiv4; uses CRT; var a: array [1..4,1..6] of integer; k,s,i,j...
Задача № 5 Дан двухмерный целочисленный массив 5х5.Заполнить случайными числа...
Ответ Program massiv5; uses CRT; var a: array [1..5,1..5] of integer; k,i,j: ...
Класс
Автор

Методическое пособие по массивам

Описание презентации по отдельным слайдам:

1 слайд

Методическое пособие по массивам Одномерные массивы Двухмерные массивы

2 слайд

Методическое пособие по одномерным массивам Задача №1 Задача №2 Задача №3 Задача № 4 Задача № 5

3 слайд

Задача № 1 Дан одномерный целочисленный массив из 7 элементов. Найдите сумму отрицательных элементов.

4 слайд

Ответ Program massiv1; uses CRT; var a: array [1..7] of integer; S,i: integer; Begin clrscr; for i:=1 to 7 do read( a[i]); s:=0; for i:=1 to 7 do if a[i]

5 слайд

Задача № 2 Дан одномерный целочисленный массив из 8 элементов. Найдите произведение положительных элементов

6 слайд

Ответ Program massiv2; uses CRT; var a: array [1..8] of integer; P,i: integer; Begin clrscr; for i:=1 to 8 do read( a[i]); P:=1; for i:=1 to 8 do if a[i]>0 then p:=p*a[i]; write(p); end.

7 слайд

Задача № 3 Дан одномерный целочисленный массив из 10 элементов. Посчитайте количество отрицательных элементов.

8 слайд

Ответ Program massiv3; uses CRT; var a: array [1..10] of integer; k,i: integer; Begin clrscr; for i:=1 to 10 do read( a[i]); k:=0; for i:=1 to 10 do if a[i]

9 слайд

Задача №4 Дан одномерный целочисленный массив из 10 элементов. Найдите их среднее арифметическое.

10 слайд

Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,k,s:integer; c:Real; Begin clrscr; for i:=1 to 10 do read(a[i]); s:=0; k:=0; for i:=1 to 10 do Begin s:=s+a[i]; k:=k+1; end; c:=s/k; write(c); end.

11 слайд

Задача № 5 Дан одномерный целочисленный массив из 10 элементов .Найдите максимальный элемент

12 слайд

Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,max,n:integer; Begin clrscr; for i:=1 to 10 do read(a[i]); n:=1; max:=a[i]; for i:=1 to 10 do If a[i]>max then Begin max:=a[i]; n:=i; end; write('n=',n); write('max=',max); end.  

13 слайд

Методическое пособие по двухмерным массивам Задача № 1 Задача № 2 Задача № 3 Задача № 4 Задача № 5

14 слайд

Задача № 1 Дан двухмерный целочисленный массив 5х6. Заполнить с клавиатуры. Вывести в стандартной форме Найти произведение отрицательных элементов

15 слайд

Ответ Program massiv1; uses CRT; var a: array [1..5,1..6] of integer; I,j,p: integer; Begin clrscr; for i:=1 to 5 do for j:=1 to 6 do read( a[i,j]); clrscr; for i:=1 to 5 do Begin For j:=1 to 6 do write(a[i,j:5); writeln; end. P:=1; for i:=1 to 5 do for j:=1 to 6 do If a[I,j] < 0 then P:=P*a[i,j]; write (‘p=’,p); end.

16 слайд

Задача № 2 Дан двухмерный целочисленный массив 3х3.Заполнить случайными числами из промежутка (-5,7). Найти максимальный элемент выше диагонали.

17 слайд

Ответ Program massiv2; uses CRT; var a: array [1..3,1..3] of integer; max,i,j: integer; Begin clrscr; Randomize; for i:=1 to 3 do for i:=1 to 3 do a[i,j]:=random(13)-5; for i:=1 to 3 do Begin for j:=1 to 3 do write(a[i,j]:5); writeln; end; max:=a[1,2]; for i:=1 to 3 do for j:=1 to 3 do If (imax) then max:=a[i,j]; write (‘max=’,max); end.

18 слайд

Задача № 3 Дан двухмерный целочисленный массив 4х5.Заполнить случайными числами промежутка (-5,7). Найти сумму элементов на главной диагонали диагонали.

19 слайд

Ответ Program massiv3; uses CRT; var a: array [1..4,1..5] of integer; s,i,j: integer; Begin clrscr; randomize; for i:=1 to 4 do for i:=1 to 5 do a[i,j]:=random(13)-5; for i:=1 to 4 do Begin for j:=1 to 5 do write(a[i,j]:5); writeln; end; S:=0; for i:=1 to 3 do for j:=1 to 3 do If i=j then s:=s+a[i,j]; write (‘s=’,s); end.

20 слайд

Задача № 4 Дан двухмерный целочисленный массив 4х6.Заполнить случайными числами промежутка (-5,7). Найти среднее арифметическое элементов, стоящих ниже главной диагонали.

21 слайд

Ответ Program massiv4; uses CRT; var a: array [1..4,1..6] of integer; k,s,i,j: integer; d: real; Begin clrscr; randomize; for i:=1 to 4 do for i:=1 to 6 do a[i,j]:=random(13)-5; for i:=1 to 4 do Begin for j:=1 to 6 do write(a[i,j]:5); writeln; end; k:=0;s:=0; for i:=1 to 4 do for j:=1 to 6 do If i>j then Begin S:=S+a[i]; K:=k+1; End; d:=s/k; write (d); end.

22 слайд

Задача № 5 Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка (-5,7). Сосчитать количество элементов на побочной диагонали.

23 слайд

Ответ Program massiv5; uses CRT; var a: array [1..5,1..5] of integer; k,i,j: integer; Begin clrscr; randomize; for i:=1 to 5 do for i:=1 to 5 do a[i,j]:=random(13)-5; for i:=1 to 5 do Begin for j:=1 to 5 do write(a[i,j]:5); writeln; end; k:=0; for i:=1 to 5 do for j:=1 to 5 do If i+j=6 then K:=k+1; write (‘k=’,k); end.