Презентация на тему: Методическое пособие по массивам

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

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

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

Program massiv1;uses CRT;var a: array [1..7] of integer;S,i: integer;Beginclrscr;for i:=1 to 7 doread( a[i]);s:=0;for i:=1 to 7 doif a[i]<0 thens:=s+a[i];write(s);end.

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

Program massiv2;uses CRT;var a: array [1..8] of integer;P,i: integer;Beginclrscr;for i:=1 to 8 doread( a[i]);P:=1;for i:=1 to 8 doif a[i]>0 thenp:=p*a[i];write(p);end.

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

Program massiv3;uses CRT;var a: array [1..10] of integer;k,i: integer;Beginclrscr;for i:=1 to 10 doread( a[i]);k:=0;for i:=1 to 10 doif a[i]<0 then k:=k+1;write(k);end. 

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

Program Massiv;uses CRT;var a:array [1..10] of integer;i,k,s:integer;c:Real;Beginclrscr;for i:=1 to 10 doread(a[i]);s:=0;k:=0;for i:=1 to 10 doBegins:=s+a[i];k:=k+1;end;c:=s/k;write(c);end.

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

Program Massiv;uses CRT;var a:array [1..10] of integer;i,max,n:integer;Beginclrscr;for i:=1 to 10 doread(a[i]);n:=1;max:=a[i];for i:=1 to 10 doIf a[i]>max thenBeginmax:=a[i];n:=i;end;write('n=',n);write('max=',max);end. 

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

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

Program massiv1;uses CRT;var a: array [1..5,1..6] of integer;I,j,p: integer;Beginclrscr;for i:=1 to 5 dofor j:=1 to 6 do read( a[i,j]);clrscr;for i:=1 to 5 doBeginFor j:=1 to 6 dowrite(a[i,j:5);writeln;end.P:=1;for i:=1 to 5 dofor j:=1 to 6 doIf a[I,j] < 0 thenP:=P*a[i,j];write (‘p=’,p);end.

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

Program massiv2;uses CRT;var a: array [1..3,1..3] of integer;max,i,j: integer;Beginclrscr;Randomize;for i:=1 to 3 dofor i:=1 to 3 doa[i,j]:=random(13)-5;for i:=1 to 3 doBegin for j:=1 to 3 dowrite(a[i,j]:5);writeln;end;max:=a[1,2];for i:=1 to 3 dofor j:=1 to 3 doIf (i<j) and (a[i,j]>max) thenmax:=a[i,j];write (‘max=’,max);end.

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

Program massiv3;uses CRT;var a: array [1..4,1..5] of integer;s,i,j: integer;Beginclrscr; randomize;for i:=1 to 4 dofor i:=1 to 5 doa[i,j]:=random(13)-5;for i:=1 to 4 doBegin for j:=1 to 5 dowrite(a[i,j]:5);writeln;end;S:=0;for i:=1 to 3 dofor j:=1 to 3 doIf i=j thens:=s+a[i,j];write (‘s=’,s);end.

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

Program massiv4;uses CRT;var a: array [1..4,1..6] of integer;k,s,i,j: integer;d: real;Beginclrscr;randomize;for i:=1 to 4 dofor i:=1 to 6 doa[i,j]:=random(13)-5;for i:=1 to 4 doBegin for j:=1 to 6 dowrite(a[i,j]:5);writeln;end;k:=0;s:=0;for i:=1 to 4 dofor j:=1 to 6 doIf i>j thenBeginS:=S+a[i];K:=k+1;End;d:=s/k;write (d);end.

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

Program massiv5;uses CRT;var a: array [1..5,1..5] of integer;k,i,j: integer;Beginclrscr;randomize;for i:=1 to 5 dofor i:=1 to 5 doa[i,j]:=random(13)-5;for i:=1 to 5 doBegin for j:=1 to 5 dowrite(a[i,j]:5);writeln;end;k:=0;for i:=1 to 5 dofor j:=1 to 5 doIf i+j=6 thenK:=k+1;write (‘k=’,k);end.