Входы для информации: гнезда (разъёмы для перефирии),CD-DVD-привод , дискетки,сканирование через принтер, ввод с клавиатуры, клик мышкой на опр. знаках, запись с микрофона, из интернета.
Выходы: гнёзда для перефирии, печать ,в интернет, монитор и т.д.
Чем богаты...
Шестое и восьмое не знаю, извините, а так всё должно быть хорошо.
Uses crt;
const
n=15;
var
a:array[1..n]of real;
i,k:integer;
s:real;
begin
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln;
clrscr;
for i:=1 to n do
begin
write(a[i]:6:2);
if a[i]=s then
inc(k);
end;
writeln;
if k<>0 then
writeln('k: ',k)
else writeln('Нет равных')
end.
Ответ:
Не плохой вариант, написан за минуты 3
Нажимаешь на ячейку G15 (под ответом), потом на значок суммы сверху справа (возле сортировки). Далее выделяешь голубые ячейки сверху и, зажав [Ctrl], сразу же оставшиеся голубые ячейки. Нажимаешь [Enter]. Формула должна получиться "=СУММ(A4:E4;C7:F8)".