Презентация "Задачи на обработку одномерного массива в Паскале"
презентация к уроку

Слайд 2

Задачи 1. Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры Program pr _1 ; Var a: array [ 1..100 ] of integer ; i, n, p: integer ; Begin Write ( 'Сколько элементов? ' ); Readln (n); p:= 1 ; For i:= 1 to n do begin write ( ' введите число: ' ); readln (a[i]); p:=p*a[i]; end ; writeln( 'произведение элементов равно: ' ,p); End . Протокол: Сколько элементов? 4 введите число: 4 введите число: 2 введите число: 6 введите число: 7 произведение элементов равно: 336

Слайд 3

Задачи 2. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти сумму элементов с нечетными номерами. Протокол: Сколько элементов? 4 16 10 5 -3 Сумма элементов с нечетными номерами:21 Program p к_2; Var a: array [ 1..100 ] of integer ; i, n, s: integer ; Begin write( ' Сколько элементов? ' ); Readln (n); s:= 0 ; For i:= 1 to n do begin a[i]:= Random( 46 )- 19 ; writeln (a[i], ' ' ); if i mod 2 <> 0 then s:=s+a[i]; end ; Writeln( ' Сумма элементов с нечетными номерами:' , s); End .

Слайд 4

Задачи 3. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры . Протокол: n=4 a[1]=3 a[2]=6 a[3]=8 a[4]=5 наименьшее число: 3 Program Pr_3; Var a: array [ 1..100 ] of real ; i, n: integer ; min: real ; Begin Write ( 'n=' ); Readln (n); For i:= 1 to n do begin write( 'a[' ,i, ']=' ); readln (a[i]); end ; min:=a[ 1 ]; For i:= 2 to n do If a[i]< min then min:=a[i]; Writeln( ' наименьшее число: ' , min); End .

Слайд 5

Самостоятельная работа 1. Задан массив А, состоящий из n чисел. Найти среднее арифметическое его элементов. Элементы вводятся с клавиатуры. 2 . Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-46, 57] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.

Слайд 6

Домашняя работа 1. Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры. 2 .Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-10, 35]. Размер произвольный.