Работа с элементами массива.pptx
- Количество слайдов: 8
РАБОТА С ЭЛЕМЕНТАМИ МАССИВА
Нахождение суммы элементов. Пример 1 Найти сумму элементов массива, кратных заданному числу.
Program Example_18; Const n=30; Type Myarray=Array[1. . n] Of Integer; Var A: Myarray; k, s, i: Integer; Begin Randomize; Writeln (‘Формирование значений элементов массива’); For i: =1 To n Do A[i]: =-25+Random (45)-22; For i: =1 To n Do Write (A[i]: 3); Writeln (‘Введите число ‘); Readln (k); s: =0; For i: =1 To n Do If A[i] mod k=0 Then s: =s+A[i]; {если элемент кратен k, то прибавляем его к сумме} Writeln (‘Сумма = ‘, s); Readln End.
Пример 2. Найти номера четных элементов. Решение: Необходимо просмотреть весь массив, и если просматриваемый элемент является четным, то вывести его номер.
Program Example_19; Const n=30; Type Myarray=Array[1. . n] Of Integer; Var A: Myarray; k, s, i: Integer; Begin Randomize; Writeln (‘Формирование значений элементов массива A’); For i: =1 To n Do A[i]: =-25+Random (45); For i: =1 To n Do Write (A[i]: 3); Writeln; For i: =1 To n Do If A[i] mod 2=0 Then Write (‘i = ‘, i); Readln End.
Пример 3. Найти максимальный элемент массива, а также его порядковый номер.
……. randomize; write('chislo elementov'); readln(n); for i: =1 to n do begin a[i]: =random (45)-22; write(' ', a[i], ' '); end; Writeln; writeln; max: =a[1]; for i: =1 to n do begin if a[i] >=max then begin max: =a[i]; i max: =i; end; writeln('max=', max, ' ', 'imax', imax); readkey; end.
Пример 4. Сформировать одномерный массив из N элементов, где элементы массива – целые случайные числа в пределах от 1 до 45. Напечатать элементы массива в прямом и обратном порядке.
Работа с элементами массива.pptx