Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите. - презентация

1

2 Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do S := S+A[i]; {суммирование} WriteLn; {пустая строка} WriteLn(S= ', S : 5 : 1); {Вывод результата} END.

3 For i := 1 to N do S := S+A[i]; 1.I=1 S:=0+2 2.I=2 S:=2+3=5 3.I=3 S:=2+3+1=6 4.I=4 S:= =10 S=10 N=4 A[1]=2 A[2]=3 A[3]=1 A[4]=4

4 Program Podcset; {Подсчёт элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; BEGIN ClrScr; {очистка экрана } Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do S := S+1; {подсчёт числа элементов} WriteLn; WriteLn(S= ', S : 5 : 1); ReadLn END.

5 For i := 1 to N do S := S+1; 1.I=1 S:=0+1 2.I=2 S:=1+1=2 3.I=3 S:=1+1+1=3 4.I=4 S:= =4 S=4 N=4 A[1]=2 A[2]=3 A[3]=1 A[4]=4

6 Program Summa; {Подсчёт чётных элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; BEGIN ClrScr; {очистка экрана } Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do If A[i] mod 2=0 then S := S+1; {подсчёт} WriteLn; WriteLn(S= ', S : 5 : 1); ReadLn END.

7 For i := 1 to N do If A[i] mod 2=0 then S := S+1; 1.I=1 2:2=0 (da) S:=0+1 2.I=2 3:2=0,5 (net) 3.I=3 1:2=0,5 (нет) 4.I=4 4:2=0 (da) S:=0+1+1=2 S=2 N=4 A[1]=2 A[2]=3 A[3]=1 A[4]=4

8 Program Summa; Uses Crt; Type Mas = Array [1..100] of Real; Var A : Mas; i, N,k : Integer; S : Real; BEGIN ClrScr; {очистка экрана } Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do begin k:=I; S := S+A[k]; k:=k+2; end; WriteLn; WriteLn(S= ', S : 5 : 1); ReadLn END. {Сумма элементов, стоящих на нечётных местах в 1m массиве}