Укажите, какими станут эти значения после выполнения каждого из приведённых ниже фрагментов программ:

Ирина в категроии Информатика, вопрос открыт 07.06.2018 в 17:52

а) a[4]:=a[2]+a[2+1];
a[1]:=a[7-1]+a[7-2];
б) for i:= to 5 do
a[i]:=a[i+1];
Var a: arrey[1..6] of integer;
i,j,q: integer;

2)В массив записаны следующие данные:
№ Значение
исходное Значение
полученное Значение полученное
1 7
2 -1
3 0
4 4
5 15
6 3


таблица


3)Найдите ошибку в приведённых фрагментах и определите, сколько раз выполниться данный цикл:
a) var s,i: real;
………
s:=0;
for i:=1 to 10 do s:=s+i;
writeln(«сумма=»,s);
__________________________________________________________________________________________
б)…………….
Var Kol,Sum,Arg: integer;
………………..
Sum:=0; Kol:=0;
Repeat
Write (‘число:’);
Readln (Arg);
Sum:=Sum+Arg*Kol
Until Kol=20;
Writeln(‘Сумма=’,Sum);
…………………

4)Постройте алгоритм решения функции при изменяющемся значении Х от 2 до 15 с шагом 0,5.

Схема: