Презентація "Знаходження найменьшого елементу масиву та підрахунок елементів за певними умовами"

Сортування масиві Перше ніж приступити до сортування масивів розглянемо таку задачу: Знайти найменший елемент масиву з 10 чисел. Розглянемо візуальне рішення цієї задачи:

1 2 3 4 5 6 7 8 9 10

Початок i:=1 to 10 do Ввести a[і] var a: array [1..10] of integer; i, c, d : integer; 1 1 2 3

1 i=1 to 10 do c:=a[1] c>a[i] c:=a[i] Ввести c Кінец 4 5 6 7 8 Так Ні

Напишемо програму var a: array [1..10] of integer; i, c: integer; begin for i:=1 to 10 do begin WriteLn(“Введіть значення “); ReadLn (a[i]); end; c:=a[1]; for i:=1 to 10 do begin If c>a[i] then c:=a[i]; end; WriteLn(“Найменьший елемент =“,c); end.

Тепер розглянемо таку задачу: Знайти номер найменшего елемента масиву з 10 чисел. Розглянемо візуальне рішення цієї задачі:

1 2 3 4 5 6 7 8 9 10 1 7

Початок i:=1 to 10 do Ввести А[і] var a: array [1..10] of integer; i, c : integer; 1 1 2 3

1 i=1 to 10 do c:=a[1]; d:=1; c>a[i] c:=a[i]; D:=i Вивід d Кінец 4 5 6 7 8 Да Нет

Напишемо програму var a: array [1..10] of integer; i,c : integer; begin for i:=1 to 10 do begin WriteLn(“Введіть значення “); ReadLn (a[i]); end; c:=a[1]; d:=1; for i:=1 to 10 do begin if c>a[i] Then begin c:=a[i]; d:=I; end; end; WriteLn(“Номер найменьшого елементу =“,d); end.

Тепер розглянемо таку задачу: Знайти в масиві з 10 чисел кількість елементів не рівних 0

Початок i:=1 to 10 do Ввести a[і] var a: array [1..10] of integer; i, c, d : integer; 1 1 2 3

1 i=1 to 10 do c:=0 a[i]<>0 c:=c+1 Ввести c Кінец 4 5 6 7 8 Так Ні

Напишемо програму var a: array [1..10] of integer; i, c: integer; begin for i:=1 to 10 do begin WriteLn(“Введіть значення “); ReadLn (a[i]); end; c:=0; for i:=1 to 10 do begin If a[i]<>0 then c:=c+1; end; WriteLn(“Кількість елементів =“,c); end.