Алг
нач
вещ а,б,с,мин
вывод "Введите результат первого "
ввод а
мин:=а
вывод "Введите результат второго "
ввод б
если мин>б то мин:=б все
вывод "Введите результат третьего "
ввод с
если мин>с то мин:=с все
вывод "Результат победителя заплыва: ",мин
кон<span>
</span>
Тебе на поскале судя по всему надо, я его давно изучал синтаксис позабыл но алгоритм могу подсказать
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.
<span>16384 бит / 8 = 2048 байт
2048 байт / 1024 = 2 Кб
решалось при условии по умолчанию 1Кб = 1024 байт
Если подразумевались другие сокращения, то надо было уточнять) </span>
Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.