Линейные (одномерные) массивы

Линейным массивом можно назвать совокупность одинаковых компонент, имеющим один индекс. I12345 A[i]

Описание массива 1. …через введение типа данных пользователя: Например: Type mass=array[1..5] of integer; Type mass=array[1..5] of integer; Var A: mass; Var A: mass; 2. Var A: array[1..5] of integer;

Ввод массива Program vvod massiva; Var A:array [1..5] of integer; Begin For i:=1 to 5 do For i:=1 to 5 do begin begin write (Введите A[,I, ]); write (Введите A[,I, ]); Read(A[i]); Read(A[i]); End; End;

Заполнение массива Заполнить массив по правилу b[i] := Заполнить массив по правилу b[i] := Program mass (input, output); Program mass (input, output); Uses crt; Uses crt; Var b:array[1...20] of real; I:integer; a:real; Begin Var b:array[1...20] of real; I:integer; a:real; Begin {* Ввод коэффициента*} Write('Введите коэффициент'); Read(a); {*заполнение массива*} For I:=l to 20 do b[I]:=a*sqr(I)/(I+a); {*Печать полученного массива*} For l:=l to 20 do write(b[I]:4:2); repeat until keypressed; {* Ввод коэффициента*} Write('Введите коэффициент'); Read(a); {*заполнение массива*} For I:=l to 20 do b[I]:=a*sqr(I)/(I+a); {*Печать полученного массива*} For l:=l to 20 do write(b[I]:4:2); repeat until keypressed; End. End.

Вывод массива For i:= 1 to 5 do writeln (A[i]) writeln (A[i])

Поиск Пример Пример Найти все четные по значению элементы массива из 10 целых чисел. Вывести на печать значения элементов и их индекс. Ввод элементов массива производиться с клавиатуры. Program massiv (input, output); Uses crt; Найти все четные по значению элементы массива из 10 целых чисел. Вывести на печать значения элементов и их индекс. Ввод элементов массива производиться с клавиатуры. Program massiv (input, output); Uses crt; Var a: array [1.. 10] of integer; I : integer; Begin Var a: array [1.. 10] of integer; I : integer; Begin {** Ввод значений элементов массива**} for I:=l to 10 do begin write(Введите А[,I,]); read(a[I]); clrscr; {** Ввод значений элементов массива**} for I:=l to 10 do begin write(Введите А[,I,]); read(a[I]); clrscr; end; end; for i:= l to 10 do if a[I] mod 2 = 0 then writeln(a[,I,]=,a[i]:8, i=,i); {* * организация задержки окна вывода* *} for i:= l to 10 do if a[I] mod 2 = 0 then writeln(a[,I,]=,a[i]:8, i=,i); {* * организация задержки окна вывода* *} repeat until keypressed; end.

Сумматор Пример Пример Найти сумму элементов массива A[1..10]. Найти сумму элементов массива A[1..10]. Program summa (input, output); Program summa (input, output); Uses crt; Uses crt; Var A=array[l..10] of integer; I:integer; s:integer; Var A=array[l..10] of integer; I:integer; s:integer; Begin Begin {*ввод элементов массива*} {*ввод элементов массива*} for I:=l to 10 do A[I]:=random(100); for I:=l to 10 do A[I]:=random(100); s:=0; {"суммирование элементов массива*} s:=0; {"суммирование элементов массива*} for I:=1 to 10 do s:=s+A[I]; for I:=1 to 10 do s:=s+A[I]; {*печать результатов*} writeln(S=,s); repeat until keypressed; end.

Счётчик

Удаление Пример Пример В линейном массиве целых чисел, содержащем 20 элементов, удалить k-й элемент массива. Массив заполняется случайным обра- зом числами от 0 до 50. В линейном массиве целых чисел, содержащем 20 элементов, удалить k-й элемент массива. Массив заполняется случайным обра- зом числами от 0 до 50. Program del (input,output); Uses crt; Program del (input,output); Uses crt; Var b:array[1..20] of integer; i,k:integer; Begin for i:=l to 20 do {*заполнение массива*} b[I]:=random(50); wrife ('Введите номер элемента, который нужно удалить'); Var b:array[1..20] of integer; i,k:integer; Begin for i:=l to 20 do {*заполнение массива*} b[I]:=random(50); wrife ('Введите номер элемента, который нужно удалить'); read(k); clrscr; {*ввод номера удаляемого элемента*} {*печать исходного массива*} read(k); clrscr; {*ввод номера удаляемого элемента*} {*печать исходного массива*} writeln ('исходный массив'); writeln ('исходный массив'); writeln; writeln; for i:=1 to 20 do write(b[I]:4); for i:=1 to 20 do write(b[I]:4); writeln; {*удаление указанного элемента*} writeln; {*удаление указанного элемента*} for I :=k to 19 do b[I]:=b[I+l]; for I :=k to 19 do b[I]:=b[I+l]; writeln('Массив после удаления элемента'); For l:=4 to 19do write(b[I]:4); repeat until keypressed; end.

Вставка Пример: Вставить на k-е место массива вещественных чисел элемент,, равный наименьшему элементу массива. Пример: Вставить на k-е место массива вещественных чисел элемент,, равный наименьшему элементу массива. Program wstavka(input, output); Usescrt; Program wstavka(input, output); Usescrt; Var i,k,n: integer; aarray A[1..10] of real; min:real; Begin write('Ha какое место вставлять?'); read(k); Var i,k,n: integer; aarray A[1..10] of real; min:real; Begin write('Ha какое место вставлять?'); read(k); for I:=l to 10 do {заполнение массива} a[I]:= 10*random; for I:=l to 10 do {заполнение массива} a[I]:= 10*random; min:=a[1]; for I:=2 to 10 do {определение минимального элемента} min:=a[1]; for I:=2 to 10 do {определение минимального элемента} if min>a[I] then min:=а[1]; write!n('Минимальный элемент =',min:6:2); {Печать исходного массива} for I:=l to 10 do write(a[I]:6:2); for I:=11 down to k do {Вставка элемента на указанное место} a[I]:=a[I-1}; a[k]:=min; writeln; {печать полученного массива} writeln('Преобразованный массив'); for I:=l to 11 do write(a[I]:6:2); repeat until key pressed; end. if min>a[I] then min:=а[1]; write!n('Минимальный элемент =',min:6:2); {Печать исходного массива} for I:=l to 10 do write(a[I]:6:2); for I:=11 down to k do {Вставка элемента на указанное место} a[I]:=a[I-1}; a[k]:=min; writeln; {печать полученного массива} writeln('Преобразованный массив'); for I:=l to 11 do write(a[I]:6:2); repeat until key pressed; end.

Замена Пример Пример В линейном массиве целых чисел заменить все элементы, меньшие среднего арифметического элементов таблицы, на значение среднего арифметического, округленного до целого. Массив запол- няется случайным образом числами от 0 до 200. В линейном массиве целых чисел заменить все элементы, меньшие среднего арифметического элементов таблицы, на значение среднего арифметического, округленного до целого. Массив запол- няется случайным образом числами от 0 до 200. Program zamena (input,output); Uses crt; Var a:array[1..100] of integer; I,n,s:integer; sn real; Begin { заполнение массива и нахождение суммы элементов*} s:=0; for l:=l to 100 do begin a[I]:=random(200); s:=s+a|T|; end; a[I]:=random(200); s:=s+a|T|; end; write!n( 'исходный массив'); writeln; for 1=1 to 100 do write(a(I]:5); writeln; sr:=s/100; write ('среднее арифметическое равно', sr:6:2); writeln; { *замена элементов массива*} for I:=l to100 do if a[I]

Сортировка Пример Пример Отсортировать по убыванию линейный массив целых чисел а(10). Отсортировать по убыванию линейный массив целых чисел а(10). А) Сортировка методом «пузырька» (наиболее простой, но и самый неэффективный, медленный способ). А) Сортировка методом «пузырька» (наиболее простой, но и самый неэффективный, медленный способ).

Program sortl (input,output); Program sortl (input,output); Uses err; Uses err; Var a=array[l.. 10] of integer; i,j,n,r: integer; Var a=array[l.. 10] of integer; i,j,n,r: integer; Begin Begin {заполнение массива} randomize; for I:=l to 10 do {заполнение массива} randomize; for I:=l to 10 do a[i]:=random(100); clrscr; {печать исходного массива} writeln('Исходный массив'); for I:=t to 10 do write(a[I];4); writeln; {сортировка массива} for l:=1 to 9 do for j:=I+1 to 10 do if a[j]