с информатикой 10 класс 1. В программе используется одномерный целочисленный массив А с индексами от 0 до 9. Значения элементов равны 1, 12, 23, 34, 45, 56, 67, 78, 89, 90, то есть А[0]=1, А[1]=12 и т. д. Определите значение переменной S после выполнения следующего фрагмента программы:
s:=5;
n:=10;
For I:=1 to n-1 do begin
s:=s+A[i]×A[i]-A[i-1]×A[i-1];
end;

2. В программе используется одномерный целочисленный массив А с индексами от 0 до 9. Значения элементов равны 5, 7, 2, 3, 4, 6, 5, 5, 6, 4, то есть А[0]=5, А[1]=7 и т. д. Определите значение переменной S после выполнения следующего фрагмента программы:
s:=0;
For i:=0 to 8 do begin
If A[i] < A[9] then begin
t:=A[i];
A[i]:=A[8-i];
A[8-i]:=t;
s:=s+t;
End
End

3. В программе используется одномерный целочисленный массив А с индексами от 0 до 9. Значения элементов равны 12, 8, 15, 23, 11, 4, 9, 22, 10, 15 соответственно, то есть А[0]=12, А[1]=8 и т.д. Определите значение переменной S после выполнения следующего фрагмента программы:
s:=0;
n:=7;
for i:=0 to 9 do
If A[i] <= А[n] then begin
s:=s+A[i];
t:=A[i];
A[n]:=A[i];
A[n]:=t;
n:=i mod 3;
End
Writeln(s);

109

441

Посмотреть ответы 1

Ответы на вопрос:

arinaaaaaaaaa0

Информатика

4,5(44 оценок)

Uses crt; const n=10; var j: array [1..n] of real; sum: real; b: integer; begin sum: =0; for b: =1 to n do j[b]: =sin(b)/cos(b); for b: =1 to n do writeln(j[b]: 5: 3); for b: =2 to n-1 do if (j[b]> j[b+1]) and (j[b]> j[b-1]) then sum: =sum+j[b]; if j[1]> j[2] then sum: =sum+j[1]; if j[n]> j[n-1] then sum: =sum+j[n]; writeln; write('sum=',sum: 5: 3); end.