no8. в программе используется одномерный целочисленный массив с индексами от 0 до 9значения элементов равны 5, 3, 4, 7, 5, 0, 1, 2, 3, 6 соответственно, т.е. a[0]=5, a[1]=3 и т.д.определите значение переменной с после выполнения следующего фрагмента этой программы: ​

2

Объяснение:

Алгорим тут, мягко говоря, странноват.

t :=a[i];

a[i-1] := a[0];

a[0] := t

Никакого t здесь не нужно, достаточно написать

a[i-1] := a[0];

a[0] := a[i]

В цикле, начиная с третьего по порядку элемента, производится его сравнение с самым первым элементом (вначале его значение равно 5).

Присваивание a[i-1] := a[0] в теле цикла никак на a[0] не влияет и на сравнение не влияет, поэтому забудем о нем.

Таким образом, существенным оказывается лишь факт попадания на место a[0] элемента, меньшего a[0] и каждое такое попадание увеличивает счетчик с на 1. Первонаяальное значение с нулевое, так что с отражает количество попаданий в a[0] элементов, меньших его значения. Анализ значений элементов с a[2]  по a[9] показывает, что сначала в a[0] попадает 2 (2 < 5), а затем 0 ( 0 < 2). Поэтому с = 2.

Барабан - подача сигнала звуком,
костер - передача информации (сигнала опасности) через дым от костра, 
марка - приклеивалась на конверт, передача бумажным письмом,
сумка с письмами - тоже бумажные письма, сумки носили почтальоны,
радио - передача радиоволнами звуком одинаковой информации для всех,
телефон - передача по проводам индивидуальной информации,
телевизор - передача радиоволнами изображения, одинаково для всех,
спутник и антена - передача информации через космос, радиоволнами,
интернет - передача любой информации по проводам и без проводов.

1)uses crt;
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x  y');
for i:=1 to n do
writeln(x[i],'  ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.