Презентация на тему к уроку Массивы

решении задач приходится иметь дело с большим, но конечным

количеством однотипных упорядоченных данных.
Эта структура представляет собой упорядоченный набор пронумерованных компонент, причем индивидуальное имя получает только весь набор, а для компонент этого набора определяется лишь порядок следования и общее их количество.

данных.




Каждый элемент массива описывается в общем виде как A[

i ], где A[ i ] – значение элемента массива, А – имя массива, i – номер элемента в данном массиве А, который меняется от 1 до n.

А [1]

А [2]

А [3]

А [4]

А [5]

А [6]

А [7]

А [8]

элементов>;
где
аrray – массив
- количество элементов в массиве

- описание типа элементов в массиве

of real;
b : array [1 . . 100] of

integer;

array [1 . . 10] of real;
i: integer;
Begin

for i:=1 to 10 do begin
readln (a[i]);
write (a[i],’ ‘);
end;
End.

Ввод/вывод значений элементов массива

array [1 . . 10] of real; i: integer; Begin

for i:=1 to 10 do begin a[i]:=(i*i+1)/sin(i); write (a[i],’ ‘); end; End.

запуск

array [1 . . 10] of real; i: integer; Begin

randomize; for i:=1 to 10 do begin a[i]:=random(30); write (a[i],’ ‘); end; End.

запуск

которого заполняются случайными числами. Подсчитать сколько элементов массива имеют

значения меньшие некоторой величины t.
Дан массив А из 10 элементов. Найти сумму значений элементов массива, больших некоторой величины b.

of integer;
i,

j, x, k, n: integer;
Begin
cls;
randomize;
readln(n);
for i:=1 to n do begin
a[i]:=random(30)-17;
write (a[i],' ');
end;
writeln;
for i:=2 to n do
for j:=n downto i do
if a[j-1]>a[j] then
begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end;
for i:=1 to n do
write(a[i],' ');
End.

запуск

Сформировать одномерный массив, каждый элемент которого равен первому четному

элементу соответствующего столбца, если такого нет, то равен нулю.

of integer; b:array[1..100]

of integer; i, j, p, n, m: integer; Begin cls; randomize; readln(n,m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(30)-17; write (a[i,j]:4); end; writeln; end;

p:=0;

for i:=n downto 1 do if a[i,j] mod 2=0 then begin b[j]:=a[i,j]; p:=p+1; end; if p=0 then b[j]:=0; end; writeln (‘первые четные в столбцах'); for j:=1 to m do write(b[j]:4); End.

запуск

числами. Определить, есть ли в данном массиве строка, содержащая

больше положительных элементов, чем отрицательных.

of integer;
b:array[1..100]

of integer;
i, j, n, m, p, k: integer;
Begin
cls;
randomize;
readln(n,m);
for i:=1 to n do begin
p:=0; k:=0;
for j:=1 to m do begin
a[i,j]:=random(45)-22;
write (a[i,j]:4);
if a[i,j]>0 then p:=p+1;
if a[i,j]<0 then k:=k+1;
end;
write(' p=',p,' k=',k);
if p>k then write(' в ',i,' строке p>k');
writeln;
end;
End.

запуск

0 1 0 0 1
0 1 0 1 0

1 0
0 0 1 1 1 0 0
1 1 1 1 1 1 1
0 0 1 1 1 0 0
0 1 0 1 0 1 0
1 0 0 1 0 0 1