Тебе на поскале судя по всему надо, я его давно изучал синтаксис позабыл но алгоритм могу подсказать
1)
Var arr:массив(от 0 до 6);
begin
пока i<6 //ввод массива
readln(arr[i]);
конец;
writeln((i[1]+i[5])/2);//вывод среднего числа
end.
2)задача описана некорректно
3)
Var arr:массив(от 0 до 29),n:integer;
begin
пока i<30 //ввод массива
readln(arr[i]);
конец;
пока j<29
n=n+arr[j];
конец;
writeln(N/30);//вывод среднего числа
end.
Abdfhjlno. стоимость ремонта 170 условия соблюдены
Program Program1;
Var
a:array [1..10] of integer;
i,temp:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln;
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
25+27 узнали сколько человек ходит на языки посчитав два раза кто ходит и туда и туда
25+27-18 посчитали сколько человек в классе
При использовании 256-символьного алфавита для записи одного символа требуется log(2)256 = 8 бит = 1 байт.
Количество информации в сообщении = 3072*1 байт = 3072/1024 Кбайт = 3 Кбайта