1) Program n1; var n,i:integer; t:array[1..100] of real; a,b:real; begin readln(n); readln(a); readln(b); for i:=1 to n do begin t[i]:=(b-a)/n; write(t[i],' '); end; end. 2) Program n1; var a:array[1..100] of integer; n,i:integer; k:real; begin read(n); k:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 2 <> 0 then k:=k+1; writeln; writeln('кол-во нечет. чисел равно ',k,''); end. 6) Program n1; var a:array[1..100] of real; i,n:integer; s,sr:real; begin read(n); for i:=1 to n do read(a[i]); s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('сред. арифметическое равно ',sr,''); end. 7) Program n1; var a:array[1..100] of real; i,n:integer; min,max:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end. 8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end. 9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],' '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.
1. С[7] = 17
2. 51
3. 55
Объяснение:
1.
C[7] = 1
for m := 1 to 10 do C[m] := C[m] + m;
C[7] = 1 + 7 = 8
for n := 1 to 10 do C[n] := C[n] + 9;
C[7] = 8 + 9 = 17
2.
for i := 1 to 100 do C[101-i] := -i-98;
i = 1 C[101-1] = -1-98 C[100] = -99
...
i = 100 C[101-100] = -100-98 C[1] = -198
в массиве только отрицательные числа от -198 до -99
for j := 1 to 100 do C[j] := C[j] + 150;
j = 1 C[1] = C[1] + 150 = -198 + 150 = -48
...
j = 100 C[100] = C[100] + 150 = -99 + 150 = 51
элементы, которые после первого цикла имели значения от -99 до -149, после второго цикла станут положительными
149 - 99 + 1 = 51 положительный элемент
3.
for n := 1 to 10 do
for m := n to 10 do Z[n,m] := 5;
n = 1 for m := 1 to 10 do Z[n,m] := 5;
все 10 элементов первой строки равны 5
n = 2 for m := 2 to 10 do Z[n,m] := 5;
9 элементов 2 строки равны 5 (10 - 2 + 1 = 9)
...
10 + 9 + 8 + 7 + 6 + 5 + 4 + 3 + 2 + 1 = 55 элементов будет равно 5