Практична робота №8
Опрацювання даних табличних величин
Фрагмент процедури для обчислення суми значень усіх елементів табличної величини: s := 0; for i := 1 to 10 do s := s + a[i]; Фрагмент процедури для знаходження кількості значень елементів табличної величини, що дорівнюють заданому числу: k := 0; for i := 1 to 10 do If a[i] = x Then k := k+1; Фрагмент процедури для визначення, чи є задане число серед значень елементів табличної величини: f := false; for i := 1 to 10 do If a[i] = x Then begin f := true; break; end; Фрагмент процедури для визначення найбільшого значення серед елементів табличної величини: max :=a[1]; for i := 2 to 10 do If a[i] > max Then max :=a[i]; Фрагмент процедури для визначення найбільшого і найменшого елементів у табличній величині, значення всіх елементів якої різні, їх номерів та перестановки цих значень місцями: max :=a[1]; nmax := 1; min :=a[1]; n:= 1; for i := 2 to 10 do I...
Комментарии
Отправить комментарий